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Prefaee 



These programs are intended for the computer hobbyist or user who 
has access to a computer system with standard BASIC language 
available. 

The various programs are written in such a manner that they 
will operate even with a simplified subset of full BASIC. The ad- 
vanced programmer, with full BASIC available, can easily modify the 
programs to take advantage of the functions and capabilities of the 
full instruction set. 

The programs were chosen not just for their intrinsic qualities, 
but also for their role as teaching aids. 

I would like to take this opportunity to thank the following 
people who helped to make this book possible. Alec Grynspan, who 
supplied the Bubble-Sort program; Tom McRoberts, who was able 
to read my notes and typed the manuscript; Laura Semple, who 
drew the final drafts of the flow charts; Jane, who said programming 
is simple; and David, who named my Iguana. 

I would like to extend a special thank you to Construction Data 
Systems, who allowed me access to their time-sharing facility on an 
IBM 370-158 computer systems. 

Ken Tracton 
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BASIC STATEMENTS 

BASIC (Beginners' All-purpose Symbolic Instruction Code) 
was invented and developed between 1963 and 1964 by John 
Kemeny and Thomas Kurtz of Dartmouth College. Since its first use 
in 1964, BASIC has steadily gained popularity as a high-level compu- 
ter language which the user can easily master. The essential vo- 
cabulary is below: 

Definition 

assigns to the elements of N the ASCI! numeric value 
of the stnng N$ 

the DATA statement assigns appropriate values to 
the variables listed m the READ statement 

asingle line function is defined by the DEF statement 

dimensions the elements of X as a 3 by 4 matrix 

ends program execution 

a multiUne DEF statement must end with a FNEND 
(function end) statement 

defines the FOR, NEXT loop 

transfers execution to line 100 

transfers program control to a subroutine commen- 
cing at 100 

transfers program execution to 100 if the relafionai 
test is true 

assigns to the vanable(s) the values presented by the 
user from a user defined device 

assigns the value of V to A 

returns control to the beginning of the FOR-TO loop 

as M ranges in values from 1 up to 1st, 2nd,... line 
number is transferred control, as follows to GO TO 
statement 

prints the alphanumeric string within quotation marks 

assures each call to the RND produces a different 
order of random numbers 



Statement 


Example 


CHANGE 


CHANGE N$ TO N 


DATA 


DATA 15, -8. 76,... 


DEF 


DEF FNR (X, Y) = 
(X 2 -t- Y 8) 


DIM 


DIM Z(3, 4) 


END 


END 


FNEND 


FNEND 


FOR-TO 


FOR X = 2 TO 66 


GOTO 


GOTO 100 


GOSUB 


GOSUB 100 


IF-THEN 


IF A = X THEN 100 


INPUT 


INPUT X, Y,... 


LET 


LET A = V 


NEXT 


NEXTX 


ON-GO TO 


ON M GO TO 10, 20, 30 


PRINT 


PRINT "LESLIE" 



RANDOMIZE RANDOMIZE 



READ 



REM 



READ L, K,.., 



REM AREA 



reads values from the DATA statement found in the 
same program 

remark is placed in the program to be used only 
during listing as a debugging aid 



Statement 


Example 


RESTORE 


RESTORE 


RETURN 


RETURN 


RND 


RND 


STOP 


STOP 



Definition 

restores the data pointer 

returns program execution to the next instniclion 
foUowmg the subroutme caS 

produced a random number 
stops program execution 
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LIBRARY FUNCTIONS 

ABS absolute value 

ATN arctangent 

ASC converts a ASCII character to its numeric value 

and assigns it 

CH^ converts a numeric value to its ASCII character 

and assigns it 

COS cosine 

COT cotangent 

DET determinant 

EXP raise e to the x power 

INT truncates to an integer 

LOC determines the position of the pointer 

LOF determines the last storage location in a file 

LOG returns the log (base e) of the argument 

RND produces a random variable 

SGN determines the sign of a variable 

SIN sine 

SQR square root 

TAB positionsprintingheadofaprinter(CRTorLINE) 

TAN tangent 

BASIC COMMAND FUNCTIONS 

BYE terminates dme-sharing session 

CATALOG lists names of all files saved 

GOOD-BYE same as BYE 

LIST produced a listing of the current file 

NEW specifies that a new file is being formed 

OLD accesses an existing file 

RENAME allows the name of a current file to be changed 

RUN causes current program to be ececuted 

SAVE causes current program to be saved (stored) 

SCRATCH deletes the current file 

SYSTEM transfer control firom BASIC to the system's 

monitor 

UNSAVE cancels storage of a file 

exponential t 
multiplication • 
PROGRAMS 

TTie programs appear in alphabetical order. Each one contains any 
applicable formulae, followed by an example of using the Program, 
the Flow Chart, and lastly, the Program itself. 
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ANNULAR SECTIONS 

This program computes the various >arameters; moment of 
inerta, polar moment of inertia and area; connected with an annular 
section. 

FORMULA! 



T TT (d2^ - di^) ._ir(d2^-da 
ANNULAR SECTION I- "IS ^" "~4 




J = 



IT (d2^ - di^) 
32 



where I and J is in (:in,^) and A is in (m.^. 

EXAMPLE 

INSIDE DIAMETER (Dl) = 



OUTSIDE DIAMETER (D2) = 
? 

4.11 

MOMENT OF INERTIA = 10 

POLAR MOMENT OF INERTIA = 20 

AREA OF SECTION = 6.18 

TYPE 1 TO CONTINUE, TO STOP 



*END 
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ANNUUR SECTIONS 




(PROMPT + INPUT A 



T 
/prompt + INPUT A 

V D2 J 

I 



CALCULATE 
I, J AND A 



(OUTPUT ^ 
PARAMETERS J 

(PROMPT + INPUT ^ 
CONTINUE \ 

COMMAND y 




YES 
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ANNULAR SECTIONS 

10 REM THIS PROGRAM COMPUTES THE VARIOUS 

20 REM PARAMETERS CONNECTED WITH AN ANNU- 
LAR 

30 REM SECTION 

40 PRINT "INSIDE DIAMETER (Dl) = "; 

50 INPUT Dl 

60 PRINT "OUTSIDE DIAMETER (D2) = "; 

65 INPUT D2 

70 LET P = 3.14159 

80 LET I = (P*((D2 1 4) - (Dlt 4)))/64 

90 LET J = 1*2 

100 LET A = (P*((D2'^ 2) - (Dlt 2)))/4 

110 PRINT "MOMENT OF INERTIA = ";I 

120 PRINT "POLAR MOMENT OF INERTIA = ";J 

130 PRINT "AREA OF SECTION = ";A 

140 PRINT 

150 PRINT "T'^PE 1 TO CONTINUE, TO STOP" 

160 INPUT L 

170 IF L = 1 THEN 190 

180 STOP 

190 PRINT 

200 GO TO 40 

210 END 
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ARITHMETIC MEAN 

After each sample is entered the computer responds with sample 
number and the current mean. The program will continue to run until 
the operator types an exit or a break command. 



A= 1 



N 



FORMULA 

N 

i = l 
EXAMPLE 

ENTER SAMPLE 

5 

N = 1 SAMPLE = 5 

ENTER SAMPLE 
? 

67 

N = 2 SAMPLE = 67 

ENTER SAMPLE 
? 

5 

N = 3 SAMPLE = 5 
ENTER SAMPLE 

45 

N = 4 SAMPLE = 45 

ENTER SAMPLE 
? 

12 

N = 5 SAMPLE = 12 
ENTER SAMPLE 
? 

123 

N = 6 SAMPLE = 123 

ENTER SAMPLE 
? 



N = 7 SAMPLE = 

ENTER SAMPLE 
? 

♦END 



CURRENT MEAN = 5 



CURRENT MEAN = 36 



CURRENT MEAN = 25.6666 



CURRENT MEAN = 30.5 



CURRENT MEAN = 26.8000 



CURRENT MEAN = 42.8333 



CURRENT MEAN = 36.7142 
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ARITHMETIC MEAN 




ASSIGN 

TO 
XANDN 



c 



I 



PROMPT + INPUT 
SAMPLE 



CALCULATE 
SAMPLE NUMBER 

+ 
CURRENT MEAN 



c 



I 



OUTPUT 
CURRENT MEAN 



) 
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ARrrHMETIC MEAN 

10 REM THIS PROGRAM COMPUTES THE ARITHME- 
TIC 

20 REM MEAN 

30 LET X = 

40 LET N = 

50 PRINT "ENTER SAMPLE"; 

60 INPUT W 

70 LET N = N + 1 

80 LET X = X + W 

90 LET A = X/N 

100 PRINT "N = "; N. "SAMPLE = "; W,"CURRENT MEAN 

= "'A 

110 GOTO 50 

120 END 
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ARITHMETIC PROGRESSION 

From the folloMong information; first term, common difference 
and number of terms, this program computes the arithmetic pro- 
gression. 

FORMULA 

A. A+D,A +2D....A + ((N- 1)D) 

EXAMPLE 

FIRST TERM = 
p 

10 

COMMON DIFFEIiENCE = 

7 

2 

NUMBER OF TEEMS = 

5 

FOR TABLE TYPE 1, IF NOT TYPE 

? 

1 

ARITHMETIC PR(3GRESSI0N 

TERM NUMBER TERM PROGRESSION 

1 10 

2 12 

3 14 

4 16 

5 18 

SUM = 70 

TYPE 1 TO CONTINUE, TO STOP 
? 



*END 
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ARITHMETIO PROGRESSION 



C'ROMPtV INPUT \ 
1ST TERM, DIP, 1 
TERM+ J 



PROMPT + INPUT ^ 
. TABLE COMMANPy 




SETUP 

"FOR" 

STATEMENT 



CALCULATE 
TERM VALUE 




PRiRT N 

TERM VALUE, ) 

+ NUMBER J 



■'Q. 



OUTPUT 

TERM NUMBER + 

VALUE 



D 





ARITHMETIC PROGRESSION 

10 REM THIS PROGRAM COMPUTES ARITHMETIC 

PROGRESSION 

20 PRINT "FIRST TERM = "; 

30 INPUT A 

40 PRINT "COMMON DIFFERENCE = "; 

50 INPUT D 

60 PRINT "NUMBER OF TERMS = "; 
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70 


INPUT N 


80 


PRINT "FOR TABLE TYPE 1, IF NOT TYPE 0"; 


90 


INPUT C 


100 


IF C = 1 THEN 120 


110 


GOTO 140 


120 


PRINT "ARITHMETIC PROGRESSION" 


130 


PRINT "TERM NUMBER", "TERM VALUE" 


140 


LETJ = 


150 


FOR I = TO N - 1 


160 


LET K = I + 1 


170 


LET L = A + (I*D) 


180 


LETJ=J + L 


190 


IF C = 1 THEN 210 


200 


GOTO 220 


210 


PRINT K, L 


220 


NEXT I 


230 


PRn^T "SLfM = ";J 


240 


PRINT 


250 


PRINT "T\PE 1 TO CONTINUE. TO STOP" 


260 


INPUT X 


270 


IF X = 1 THEN 290 


280 


STOP 


290 


PRINT 


300 


GOTO 20 


310 


END 
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BLACKJACK 

Blackjack, or the game dE 21, is played against the computer, it being 
the dealer. Cards are dealt from a self-replenishing deck. Standard 
rules are as follows: 

• Blackjack wins unless the dealer also gets blackjack, in 
which case there is no winning player. 

• The highest score below 21 wins. 

• The dealer must draw a card if he is below 17, but must 
stand if he has 17 or greater. 

• Aces count as 11 unless it would force a hand over 21, in 
which case the ace counts as 1. 

EXAMPLE 

RUN 

IF INSTRUCTIONS ARE REQUIRED TYPE YES 

IF NOT TYPE NO 
? 

NO 

•♦*GOOD-LUCK — MAY THE BEST ONE WIN*** 

THE DEALER HAS A 9 SHOWING 

YOU HAVE A 5 AND A 11 

YOUR TOTAL IS 16 

DO YOU WANT A HIT, OR DO YOU STAND 
? 

HIT 

YOUR CARD IS 4 

DO YOU WANT A HIT, OR DO YOU STAND 

STAND 

THE DEALER HAS 12 

THE DEALER DRAWS A 5 

HIS TOTAL IS 17 

YOU HAVE 20 

YOU HAVE WON!!! 

DO YOU WISH TO PLAY AGAIN 

TYPE YES OR NO 

? 

NO 

BLACKJACK SAYS GOOD-BYE 

*END 
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BLACK JACK 



(OUTPUT ^ 
mSTRUCTION y 



CARD J 



SET-UP 
INlTIM-iZE 
VARIABLES 



V^ NO WINNER J 



' OUTPUT ^ 

DEALER H/« BJ J 




(OUTPUT \ 

DEALER HAS VWW/ 



BLAOKJACK 

10 REM BLACKJACK 

20 PRINT "W INSTRUCTIONS ARE REQUIRED TYPE 

YES" 
30 PRINT "IF NOT TYPE NO" 
40 INPUT C$ 
50 IF C$ = "YES" THEN 90 
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60 IF C$ = "NO" THEN 340 
70 PRINT "INVALID RESPONSE" 
80 GOTO 20 
90 PRINT 

100 ppTMT"***************BLACKTACK***************" 
110 PRINT 
120 PRINT "THE COMPUTER AS THE DEALER, DEALS 

TWO CARDS TO ITSELF" 
130 PRINT "AND TWO CARDS TO THE PLAYER. THE 

PLAYER'S TWO CARDS" 
140 PRINT "ARE SHOWN FACE UP, WHILE ONLY ONE OF 

THE DEALER'S" 
150 PRINT "CARDS IS SHOWN. BOTH THE DEALER AND 

THE PLAYER" 
160 PRINT "MAY DRAW ADDITIONAL CARDS." 
170 PRINT "THE PLAYER'S GOAL IS TO REACH 21 OR 

LESS, BUT" 
180 PRINT "BE CLOSER TO 21 THAN THE DEALER'S 

HAND." 
190 PRINT "IF THE PLAYER'S OR THE DEALER'S HAND 

TOTALS" 
200 PRINT "GREATER THAN 21 HE IS BUSTED! THE 

KING" 
210 PRINT "THE QUEEN AND THE JACK ALL COUNT AS 

10 POINTS." 
220 PRINT "ALL OTHER CARDS EXCEPT THE 

ACE COUNT AS THEIR FACE" 
230 PRINT "VALUE SHOWS. THE ACE COUNTS AS 11 

UNLESS THIS" 
240 PRINT "WOULD CAUSE THE HAND TO BE OVER 21, 

IN THAT" 
250 PRINT "CASE THE ACE COUNTS AS 1." 
260 PRINT "IF BOTH THE DEALER AND THE PLAYER 

GET BLACKJACK" 
270 PRINT "WHICH IS A TWO CARD HAND TOTALING 21" 
280 PRINT "NEITHER WINS, IT IS A PUSH" 
290 PRINT "IF THE DEALER'S HAND IS BELOW OR 

EQUAL TO 16" 
300 PRINT "HE MUST DRAW, AFTER 17 THE DEALER 

MUST STAND" 
310 PRINT "TO RECEIVE A CARD YOU WANT A HIT-" 
320 PRINT "TO STOP WHERE YOU ARE, YOU STAND-" 
330 PRINT 
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340 


PRINT"***GOOD-LUCK MAY THE BEST ONE 




MN***" 


350 


REM 1ST HAND 


355 


RANDOMIZE 


360 


LET D = 


370 


LET P = D 


380 


GOSUB 820 


390 


LET Dl = C 


400 


GOSUB 820 


410 


LET D2 = C 


420 


GOSUB 890 


430 


LET PI = C 


440 


GOSUB 890 


450 


LET P2 = 3 


460 


PRINT 


470 


PRINT "THE DEALER HAS A ";D1;" SHOWING" 


480 


PRINT "YOU HAVE A ";P1;" AND A ";P2 


490 


PRINT "YOUR TOTAL IS ";P1 + P2 


500 


LET D = DH- D2 


510 


LET P = PH- P2 


520 


IF P = 21 THEN 640 


530 


GOSUB 960 


540 


IF L = 1 THEN 690 


550 


IF D< = 16 THEN 740 


560 


PRINT "THE DEALER HAS ";D 


570 


PRINT "YOU HAVE ";P 


580 


IF P > D THEN 620 


590 


REM WIN OR LOSS STATEMENTS 


600 


PRINT "THE DEALER HAS WON!!!" 


610 


GOTO 1060 


620 


PRINT "YO'U HAVE WON!!!" 


630 


GOTO 1060 


640 


PRINT "*** YOU HAVE BLACKJACK***" 


650 


IF D = 21 THEN 670 


660 


GOTO 560 


670 


PRINT "THE DEALER ALSO HAS BLACKJACK, 




SORRY NO WINNER" 


680 


GOTO 1060 


690 


GOSUB 890 


700 


PRINT "YOUR CARD IS ";C 


710 


IF P > 21 THEN 600 


730 


GOTO 530 


740 


PRINT "THE DEALER HAS ";D 
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750 GOSUB 820 

760 LET D = D + C 

770 PRINT "THE DEALER DRAWS A "; C 

780 PRINT "HIS TOTAL IS "; D 

790 IF D > 21 THEN 620 

800 IF D < = 16 THEN 750 

810 GOTO 560 

820 LET C = 1 + INT(11*RND) 

830 IF C = 11 THEN 850 

840 GOTO 880 

850 IF D + C> 21 THEN 870 

860 GOTO 880 

870 LET C = 1 

880 RETURN 

890 LET C = 1 + INT(11*RND) 

900 IF C = 11 THEN 920 

910 GOTO 950 

920 IF P + C> 21 THEN 940 

930 GOTO 950 

940 LET C = 1 

950 RETURN 

960 PRINT "DO YOU WANT A HIT, OR DO YOU STAND" 

970 INPUT Q$ 

980 IF Q$ = "HIT" THEN 1020 

990 IF Q$ = "STAND" THEN 1040 

1000 PRINT "INVALID RESPONSE" 

1010 GOTO 960 

1020 LET L = 1 

1030 GOTO 1050 

1040 LET L = 

1050 RETURN 

1060 PRINT 

1070 PRINT "DO YOU WISH TO PLAY AGAIN" 

1080 PRINT "TYPE YES OR NO" 

1090 INPUT L$ 

1100 IF L$ = "YES" THEN 1130 

1110 PRINT "BLACKJACK SAYS GOOD-BYE" 

1120 STOP 

1130 PRINT 

1140 GOTO 20 

1150 END 
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BUBBLE SORT 

This program is actually a subroutine rather than a stand-alone 
program. It is intended to be used in conjunction with larger pro- 
grams which require that data be placed in an array in ascending 
sequence. 

BUBBLE SORT 

10 REM THIS PROGRAM IS A BUBBLE SORT, WHICH 
PLACES THE 

20 REM VALUES IN AN ARRAY IN ASCENDING SE- 
QUENCE 

30 REM IT IS INTENDED TO BE AN EXAMPLE AND 

NOT A 
40 REM SPECIFIC CASE. 
50 REM THIS PROGRAM MAY BE CONVERTED INTO A 

SUBROUTINE 
60 REM FOR USE IN A LARGER PROGRAM 
70 REM THE ARRAY IS Z OF LENGTH N 
80 REM Z IS ASSUMED TO HAVE BEEN DECLARED IN A 

DIM 
90 REM STATEMENT AND N SET AHEAD OF TIME 

100 LET I = N - 1 

110 F0RJ = 1T0I 

120 LET K = J + 1 

130 FORL = NTOKSTEP- 1 

140 IF Z(L) > Z(J) THEN 210 

150 REM SAVE FIRST VALUE 

160 LET T = Z(L) 

170 LET Z(L) ==Z(J) 

180 LET ZO) == T 

190 REM IF Z IS THE KEY FOR SORTING MULTIPLE 

200 REM ARRAYS AND EXTRA CODE HERE 

210 NEXT L 

220 NEXT] 

230 RETURN 
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CHI-SQUARE EVALUATION 

This program computes the chi-square evaluation from the input- 
ed observed and expected frequencies. To terminate the evaluation 
the use simply inputs a for the last expected frequency. 



FORMULA 

N 

i=l 

EXAMPLE 

OBSERVED FREQUENCIES = 

10 

EXPECTED FREQUENCIES = 

? 

10 

OBSERVED FREQUENCIES = 

? 



OBSERVED FREQUENCIES = 





CHI-SQUARE = 

TYPE 1 TO CONTINUE, TO STOP 
? 


*END 



(Oi - El)' 
El 
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CHI-SQUARE EVALUATION 



ASSIGN i 
TO J 



I JBM 



(PROMPT + INPUtN 
OBSEERVE ) 

FREQUENCIES V 




YES 



UPDATE 
CHI-SQUARE 
CALCULATE 



/'^PRINT CHI-SQUARE j 

! ^ 

/^PROMPT 4- INPUT \ 
boNTINUECOMMANty 




YES 



CHI-SQUARE EVALUATION 

10 REM THIS PROGRAM COMPUTES CHI-SQUARE 
20 REM EVALUATION ON THE OBSERVED TO 
30 REM EXPECTED FREQUENCIES 
40 LETJ = 
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50 PRINT "OBSERVED FREQUENCIES = " 

60 INPUT D 

70 PRINT "EXPECTED FREQUENCIES = " 

80 INPUT E 

90 IF E = THEN 130 

100 LET K = ((D - E)'f2)/E 

110 LETJ=J + K 

120 GOTO 50 

130 PRINT "CHI-SQUARE = ";J 

140 PRINT "******♦********♦****♦" 

150 PRINT "TYPE 1 TO CONTINUE, TO STOP' 

160 INPUT L 

170 IF L = 1 THEN 190 

180 STOP 

190 PRINT 

200 GOTO 40 

210 END 
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CIRCLE iDETERMINED BY THREE POINTS 

The user inputs three noncolinear points, and the program responds 
wilii the center and the radius of the drcle thus generated. 



FORMULAE 



y,=El^--^ X0=K2-N2Y0 

■^ N2 - Ni 



f= CY3 - Xof+ (K3 - Yof 

Ki= Qi 2 -Xi) OC2 +Xi) + (F2 - Fi) (F2 + Yi) 
2(X'2 - Xi) 

K2= (^ 3 - Xi)(X^ +Zi) + (F3 - Yi){Yz + 70 
~ 2Qiz - Xi) 



.r Y2 - Fl .. F3-F1 

X2 -Xi X3- Xi 



EXAMPLES 

INPUT XI, Yl 
? 

2 3 

INPUT X2,Y2 

5,4 

INPUT X3,Y3 

6,4.5 

CENTER XO.YO = - 1.25,17.25 

RADIUS = 15.10 

TO CONTINUE TWE 1, IF NOT TYPE 

7 



*END 
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CIRCLE DETERMINED BY THREE POINTS 



[ START j 



PROMPT AND 

INPUT 

POINTS 



) 



COMPUTE 
XO, Yo, R 



PRINT \ 

Xo, YO. R J 



Q 



PRINT AND 

INPUT CONTINUE 

COMMAND 








YES 



( STOP J 
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OIRCLE DETERMINED! BY THREE POINTS 


10 


REM THIS PROGRAM COMPUTES THE CENTER 




AND RADIUS 


20 


REM OF A CIRCLE FROM 3 NON-COLINEAR POINTS 


30 


PRINT "MPUT XI, Yl"; 


40 


INPUT XI, Yl 


50 


PRINT "INPUT X2,Y2"; 


60 


INPUT X2,Y2 


70 


PRINT "INPUT X3,Y3"; 


80 


INPUT X3,Y3 


90 


LET A = (Y2 - Y1)/(X2 - XI) 


100 


LET B = as - Y1)/(X3 - XI) 


110 


LET C = ((:X2 - X1)*(X2 + XI))* 




+ ((Y2 - Y1)*(Y2 + YD) 


120 


LET D = C/(2*(X2 - XI)) 


130 


LET E = {(X3 - X1)*(X3 + XI)) + ((Y3 - Yl)* 




(Y3 + YD) 


140 


LET F = E/(2*(X3 - XI)) 


150 


LET YO = (F - D)/(B - A) 


160 


LET XO = F - (B*YO) 


170 


LET R = SQR((X3 - X0)t2 + (Y3 - Y0)t2) 


180 


PRINT "CENTER XO.YO = ";X0;",";Y0 


190 


PRMT "Ri\DIUS = ";R 


200 


PRINT 


210 


PRINT "TO CONTINUE TYPE 1, IF NOT TYPE (f' 


220 


INPUT L 


230 


IF L = 1 THEN 250 


240 


STOP 


250 


PRINT 


260 


GOTO 30 


270 


END 
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CIRCULAR SECTIONS 

This program computes the various parameters: moment of 
inertia, polar moment of inertia and area connected within a circular 
section. 

FORMUUE 



CIRCUUR SECTION / = 2lE 4=2^' 

64 4 







. ttD* 
•^ ~ 32 



where I &J are in in* and A = in^ 



EXAMPLE 

RADIUS 

? 

5 

MOMENT OF INERTIA = 490.873 

POLAR MOMENT OF INTERTIA = 981.746 

AREA OF SECTION = 78.5397 

TYPE 1 TO CONTINUE, TO STOP 

? 



•END 
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CIRCULAR SECTIONS 
( START J 



*Q^- 



PROMPT + \ 
INPUT RADIUS J 



CALCULATE 
PARAMETERS 



f 

OUTPUT \ 
PARAMETERS J 



/* CONTINUE \ 
UlESSAGE + INPUTJ 



< ISL = 1? 




YES 
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CIRCULAR SECTION 

10 REM THIS PROGRAM COMPUTES THE PARA- 
METERS 

20 REM CONNECTED WITH A CIRCULAR SECTION 

30 PRINT "RADIUS" 

40 INPUT R 

50 LET P = 3.14159 

60 LET D = 2*R 

70 LET I = (P*(Dt4))/64 

80 LET J = 1*2 

90 LET A = (P*(Dt2))/4 

100 PRINT "MOMENT OF INERTIA = ";I 

110 PRINT "POLAR MOMENT OF INERTIA = ";J 

120 PRINT "AREA OF SECTION = ";A 

ISO PRINT "************♦♦*******♦*****" 

140 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

150 INPUT L 

160 IF L = 1 THEN 180 

i70 STOP 

180 PRINT 

190 GOTO 30 

200 END 
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COMPOUNDED AMOUNTS 

This program applies to an amount of principle placed into an account 
and compounded periodically, with no further deposits. 

FORMULAE 

x-ni + ir ^-in(i+i) 

F=Z(1 +/)-"' L=y((I+/f-J) 

where N = number of Time periods 

1= interest rate (decimal) L = interest 
Y = present value 
X = future value 

EXAMPLE 

FUTURE VALUE(l) 
PRESENT VALUE (2) 
INTEREST (3) 

PERIODIC INTEREST RATE (4) 
NUMBER OF TIME PERIODS (5) 

ENTER 1 TO 5 
? 

1 

PRESENT VALUE = 
? 

100 

INTEREST RATE = 
? 

10 

NUMBER OF TIME PERIODS = 
■> 

4 

FUTURE VALUE = 146.41 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

ENTER 1 TO 5 
? 

2 
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FUTURE VALUE = 
? 

200 

INTEREST RATE = 

p 

.1 

NUMBER OF TIME PERIODS = 

? 

5 

PRESENT VALUE =124.18 

TYPE 1 TO CONTINUE, TO STOP 
? 

1 

ENTER 1 TO 5 

? 

3 

PRESENT VALUE = 
p 

300 

INTEREST RATE = 

p 

.2 

NUMBER OF TIME PERIODS = 
? 

6 

INTEREST =595.80 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

ENTER 1 TO 5 
p 

4 

PRESENT VALUE = 

p 

100 

FUTURE VALUE = 

p 

200 

NUMBER OF TIME PERIODS = 

? 

5 

INTEREST RATE = .15 
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TYPE 1 TO CONTINUE, TO STOP 
? 

1 

ENTER 1 TO 5 

? 

5 

FUTURE VALUE --= 

7 

500 

PRESENT VALUE = 

250 

INTEREST RATE = 



NUMBER OF TIME PERIODS =3.8 
TYPE 1 TO CONTMUE, TO STOP 
? 


*END 



COMPOUNDED AMOUNTS 
START 




CPRCMPTAND N 
INPUT DESIRED j 
OPTION y 



CALCULATE 
DESIRED 
OPTION 



(PRINT N 
OPTION ) 
RESULT J 




^ g 



jfr 



(PRINT AND \ 
INPUT OPTION ) 
VARIABLES J 
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COMPOUNDED AMOUNTS 

10 REM COMPOUNDED AMOUNTS 

20 PRINT "FUTURE VALUE (1)" 

30 PRINT "PRESENT VALUE (2)" 

40 PRINT "INTEREST (3)" 

50 PRINT "PERIODIC INTEREST RATE (4)" 

60 PRINT "NUMBER OF TIME PERIODS (5)" 

70 PRINT "ENTER 1 TO 5"; 

80 INPUT A 

90 ON A GOTO 100,160,220,280,340 

100 GOSUB 410 

110 GOSUB 440 

120 GOSUB 470 

130 LETX = Y*((1+DTN) 

140 PRINT "FUTURE VALUE = ";X 

150 GOTO 390 

160 GOSUB 500 

170 GOSUB 440 

180 GOSUB 470 

190 LET Y = X*((l +DtN) 

200 PRINT "PRESENT VALUE = ";Y 

210 GOTO 390 

220 GOSUB 410 

230 GOSUB 440 

240 GOSUB 470 

250 LET L = Y*((l +ItN) - 1) 

260 PRINT "INTEREST = ";L 

270 GOTO 390 

280 GOSUB 410 

290 GOSUB 500 

300 GOSUB 470 

310 LET I = ((X/Y)t(l/N)) - 1 

320 PRINT "INTEREST RATE = ";I 

330 GOTO 390 

340 GOSUB 500 

350 GOSUB 410 

360 GOSUB 440 

370 LET N = (L0G(X/Y))/(L0G(1 + I)) 

380 PRINT "NUMBER OF TIME PERIODS = ";N 

390 PRINT 

400 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

401 INPUT L 
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402 


IF L = 1 THEN 404 


403 


STOP 


404 


PRINT 


405 


GOTO 70 


410 


PRINT "PKESENT VALUE = "; 


420 


INPUT Y 


430 


RETURN 


440 


PRINT "INTEREST RATE = "; 


450 


INPUT! 


460 


RETURN 


470 


PRINT "NUMBER OF TIME PERIODS = " 


480 


INPUT N 


490 


RETURN 


500 


PRINT "FUTURE VALUE = "; 


510 


INPUT X 


520 


RETURN 


530 


END 
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COORDINATE TRANSLATION AND/OR ROTATION 

This program will compute rectangular-coordinate translation 
and/or rotation. The origin is translated from (0,0) to a new point 
(X,Y) and the X,y axes are rotated to an angle A to ^ve new axes 

FORMULAE 



\ 



\ 



0.0 



\ 



COORDINATE TRANSLATION 
AND/OR ROTATION 



-1^ 



xo.yo 



X^ = Qi.- Xo)Cos a-^iY- Yo)Sm a 
r' = - (Y - Xo)Sin a+iY~ Yo)Cos a 

EXAMPLES 

ANGLE OF ROTATION IN DEGREES= 

45 

COORDINATES OF NEW ORIGIN (XO,YO)= 

? 

5,6 

OLD COORDINATES OF DATA POINT (XI, Yl)= 

? 

8 9 

SPECIFIED ROTATION = 45 

NEW COORDINATES OF DATA POINT 

X2 =4.24 

Y2 = 

TYPE 1 TO CONTINUE, TO STOP 

p 


*END 
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COORDINATE TRANSLATION AND/OR ROTATION 




(PROMPT AND ^ 
INPUT ANGLE I 
OF ROTATION J 



(PROMPT AND ^ 
INPUT NEW I 

ORIGIN J 



(PROMPT AND \ 
INPUT OLD ) 

DATA POINTS J 



CALCULATE 

NEW 
DATA POINTS 



(PRINT SPECIFIED ^ 
ROTATION J 



(PRINT NEW ^ 
COORDINATES J 



(PROMPT AND ^ 
INPUT CONTINUE I 
COMMAND J 




NO 




YES 
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COORDINATE TRANSLATION AND/OR ROTATION 

10 REM THIS PROGRAM COMPUTES RECTANGULAR 

COORDINATE 

20 REM TRANSLATION AND/OR ROTATION 

30 PRINT "ANGLE OF ROTATION IN DEGREES = "; 

40 INPUT A 

50 LET B = (A*3. 14159)/180 

60 PRINT "COORDINATES OF NEW ORIGIN (XO, YO) =' ; 

70 INPUT X,Y 

80 PRINT "OLD COORDINATES OF DATA POINT (XI, Yl) 

90 INPUT F,C 

100 LET Z = F - X 

110 LET W = C - Y 

120 LET D = (Z*COS(B)) + (W*SIN(B)) 

130 LET E = - (Z*SIN(B)) + (W*COS(B)) 

140 PRINT 

150 PRINT "SPECIFIED ROTATION =";A 

160 PRINT "NEW COORDINATES OF DATA POINT' 

170 PRINT "X2 = ";D 

180 PRINT "Y2 = ";E 

190 PRINT 

200 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

210 INPUT L 

220 IF L = 1 THEN 240 

230 STOP 

240 PRINT 

250 GOTO 30 

260 END 
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CRAPS 

The following game-simulation is that of craps. Craps is a game that 
is played with two dice. The object of the game is to either win by 
throwing a 7 or an 11 on the first throw, or by matching your throw 
on the following throws. If on the first throw a 2, 3, or a 12 comes up 
you lose automatically; also, if you throw a 7 when looking for a 
match you lose too. 

EXAMPLE 

RUN 

FOR RULES, TYPE RULES, OTHERWISE TYPE GO 

? 

GO 
6 

8 

4 

YOU THROW A 6 YOU WIN BY MATCHING 

TO CONTINUE TYPE Y, IF NOT TYPE N 

? 

Y 

FOR RULES, TYPE RULES, OTHERWISE TYPE GO 

? 

GO 

YOU THROW A 7 YOU WIN 

TO CONTINUE TYPE Y, IF NOT TYPE N 

N 

*END 
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(PHC»JPT » INPUt'N 
Runs OH 00 J 





OUTPUT 
THf«)W 



J 



WIN \J z' phompt -unputN 
:ssAGE J ^ tgownwuE command 



CRAPS 

10 REM TfflS PROGRAM SIMULATES THE GAME OF 
CRAPS 

20 RANDOMIZE 

30 PRINT " FOR RULES, TYPE RULES. OTHERWISE 

TYPE GO" 
40 INPUT R$ 
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50 


IF R$ = "RULES" THEN 90 


60 


IF R$ = "GO" THEN 140 


70 


PRINT "INVALID COMMAND" 


80 


GOTO 30 


90 


PRINT "A 7 OR 11 ON THE FIRST THROW WINS" 


100 


PRINT "YOU CAN ALSO WIN BY THROWING A 




4,5,6,8,9,10" 


110 


PRINT " AND MATCHING IT BEFORE THROWING A 




7. IF ON" 


120 


PRINT "TEE FIRST THROW A 2,3 OR A 12 COMES UP" 


130 


PRINT "YOU LOSE AUTOMATICALLY" 


140 


LETJ = 


150 


GOSUB 460 


160 


LET Dl =N 


170 


GOSUB 460 


180 


LET D2 = N 


190 


LET D3 = Dl + D2 


200 


LETJ=J + 1 


210 


IF J = 1 THEN 260 


220 


IF D3 = D4 THEN 420 


230 


IF D3 = 7 THEN 440 


240 


PRINT "YOU THROW A ":D3 


250 


GOTO 150 


260 


IF D3 = 7 THEN 320 


270 


IF D3 = 2 THEN 340 


280 


IF D3 = 3 THEN 340 


290 


IF D3 = 12 THEN 340 


300 


IF D3 = 11 THEN 320 


310 


LET D4 = D3 


315 


GOTO 240 


320 


PRINT "YOU THROW A ";D3;" YOU WIN" 


330 


GOTO 350 


340 


PRINT "YOU THROW A ";D3;" YOU LOSE" 


350 


PRINT 


360 


PRINT "TO CONTINUE TYPE Y, IF NOT TYPE N" 


370 


INPUT L$ 


380 


IF L$ = "Y" THEN 400 


390 


STOP 


400 


PRINT 


410 


GOTO 30 


420 


PRINT "YOU THROW A ";D3;" YOU WIN BY MATCH- 




ING" 


430 


GOTO 350 
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440 PRINT "YOU THROW A ";D3;" SORRY YOU LOSE" 

450 GOTO 350 

460 LET N = 1 + INT(6*RND) 

470 RETURN 

480 END 
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CURVE TABLES {PLOHING) 

This program generates a series of data points, with which the user 
can plot curves. The data points generated lie between the values 
given for the starting value and the end point of X. Step size may be 
changed by using a step statement in conjunction with the FOR 
statement. The user must supply the equation of the curve in line 
140. 

EXAMPLE 

(ASSUMING THE EQUATION IS (2*X) + 6) 
STARTING VALUE OF X = 

? 

5 

END VALUE OF X = 

? 

10 

TABLE 

X Y 

5 16 

6 18 

7 20 

8 22 

9 24 

10 26 

TYPE 1 TO CONTINUE.O TO STOP 
? 


*END 
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CURVE TABLES 




(PROMPT AND >» 
INPUT ) 

END VALUES J 



( PRINT TABLE j 



{ PRINT "X ", "V J 



CALCULATE 
X, Y 



A ( PRINT 

"* ' l,Y 



f PRINT ^ 



YES 




PRINT AND 

INPUT CONTINUE 

COMMAND 



D 




YES 
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CURVE TABLES 

10 REM TfflS PROGRAM GENERATES A SERIES OF 

20 REM DATA POINTS. WITH WHICH THE USER CAN 

30 REM PLOT CURVES. THE DATA POINTS GENE- 
RATED 

40 REM LIE BETWEEN THE VALUES GIVEN FOR X 

50 REM IF A STEP SIZE OTHER THAN 1 IS DERIVED 

60 REM USE A STEP STATEMENT WITH THE FOR 

STATEMENTS 

70 PRINT "STMTING VALUE OF X = "; 

80 INPUT X 

90 PRINT "END VALUE OF X = ": 

100 INPUT W 

110 PRINT "TABLE" 

120 PRINT "X","Y" 

130 FOR I = X TO W 

140 LET Y = 

150 PRINT I.Y 

160 NEXT I 

170 PRINT 

180 PRINT "TYI'E 1 TO CONTINUE.O TO STOP" 

190 INPUT L 

200 IF L = 1 THEN 220 

210 STOP 

220 PRINT 

230 GOTO 70 

240 END 
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DAY OF THE WEEK 

This computer program computes the day of the week (e.g., Mon- 
day) from the date entered. The date entered must not be prior 
1753, this is due to changes involving the switch-over from the Julian 
to the Gregorian Calandar. 

EXAMPLE 

RUN 

ENTER DAY(D), MONTH(M) AND YEAR(Y) 
? 

16,02,1977 

THE DAY OF THE WEEK IS WEDNESDAY 
FOR NEXT DATE IN YES, IF NOT 
TYPE NO 

NO 

DAY OF THE WEEK SAYS GOOD-BYE 

*END 
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DAYS OF THE WEEK 




(PROMPT + INPUT^ 
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DAY OF THE WEEK 

10 REM TfflS PROGRAM COMPUTES THE DAY OF THE 

WEEK 

20 REM RESTRICTION: THE DATE MUST BE AFTER 

1752 

30 LET J$(l) = "SUNDAY" 

40 LET J$(2) = "MONDAY" 

50 LET J$(3) = "TUESDAY" 

60 LET J$(4) = "WEDNESDAY" 

70 LET J$(5) = "THURSDAY" 

80 LET J$(6) = "FRIDAY" 

90 LETJ$(7) = "SATURDAY" 

100 PRINT "ENTER DAY(D), MONTH(M) and YEAR(Y)" 

110 INPUT D,M,Y 

120 IF Y > 1752 THEN 150 

130 PRINT "YEAR MUST NOT BE PRIOR TO 1753" 

140 GOTO 100 

150 LET K = INT(0.6 + (1/M)) 

160 LET L = Y - K 

170 LET = M + 12*K 

180 LET P = L/lOO 

190 LET Zl = INT(P/4) 

200 LETZ2 = INT(P) 

210 LETZ3 = INT((5*L)/4) 

220 LET Z4 = INT (13*(0 + l)/5) 

230 LETZ = Z4 + Z3-Z2 + Z1 + D- 1 

240 LET Z=Z - (7*INT(Z/7)) + 1 

250 PRINT "THE DAY OF THE WEEK IS "; J$CZ) 

260 PRINT 

270 PRINT "FOR NEXT DATE TYPE IN YES, IF NOT" 

280 PRINT "TYPE NO" 

290 INPUT L$ 

300 IF L$ = "YES" THEN 340 

310 IF L$ = "NO" THEN 360 

320 PRINT "INVALID COMMAND" 

330 GOTO 270 

340 PRINT 

350 GOTO 30 

360 PRINT "DAY OF THE WEEK SAYS GOOD-BYE" 

370 END 
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DETERMINANT AND IMVERSE OF A 2 x 2 MATRIX 

The computer computes the inverse and determinant of a 2 x 2 
matrix supplied by ttie user. 

EXAMPLE 

ENTER A11,A12 

? 

5,3 

ENTER A21,A22 

? 

2,1 

ORIGINAL MATREC 
5 3 
2 1 

INVERSE OF MATRIX 
- 1 4 
2-5 
DETERMINANT = - 1 
TYPE 1 TO CONTINUE, TO STOP 


*END 
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DETERMINANT AND INVERSE 
OF 2 X 2 MATRIX 




C PROMPT AND ^ 
INPUT MATRIX J 



COMPUTE 
DETERMINANT 
AND INVERSE 



(PRINT \ 

ORIGINAL J 

MATRIX J 



(PRINT N 

INVERSE OF I 
MATRIX J 



(PRINT ^ 

DETERMINANT J 



(PROMPT AND "\ 
INPUT CONTINUE ) 
COMMAND J 




YES 



DETERMINANT AND INVERSE OF 2 x 2 MATRIX 

10 REM THIS PROGRAM COMPUTES THE DETER- 
MINANT AND 
20 REM INVERSE OF A 2 x 2 MATRIX 
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30 PRINT "ENTER All. A12"; 

40 INPUT A,B 

50 PRINT "A21, A22"; 

60 INPUT CD 

70 LET E = (D*A) - (B*C) 

80 LET F = D/E 

90 LET G = - 3/E 

100 LET H = - C/E 

110 LET I = A/E 

120 PRINT "ORIGINAL MATRIX" 

130 PRINT A,B 

140 PRINT CD 

150 PRINT ^„^^„ 

160 PRINT "INVERSE OF MATRIX 

170 PRINT F,G 

180 PRINT H,I 
190 PRINT 
200 PRINT "DETERMINANT = ";E 

m PRINT "TYIPE 1 TO CONTINUE. TO STOP" 

230 INPUT L 

240 IF L = 1 THEN 30 

250 STOP 

260 PRINT 

270 GOTO 30 

280 END 
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DETERMINATE INVERSE OF A 3 x 3 MATRIX 

The user inputs his original matrix, and the computer responds with 
the determinate and the inverse. 

FORMULAE 



MATRIX = /a, B. C. \ DET A = A.B.C3 + B.CaAs + 
I A2 B2 C2 I ^ „ 
\ As B3 Ca / C1B3A2 - C1B2A3 - C2B3Ai - C3A2B1 

INVERSE OF MATRIX A = IZf^H 

\ as 133 73 

ai = (B2C3-B3C2)/DETA 
a2 = (A3C2-A2C3)/DETA 
a, = (A2B3-A3B2)/DETA 
i8i = (B3Ci-BiC3)/DETA 
^i = (AiC3-A3Ci)/DETA 
/83 = (A3Bi-AiB3)/DETA 
yi = (BiC2-B2Ci)/DETA 
'y2 = (A2Ci-AiC2)/DETA 
>3 = (AiB2-A2Bi)/DETA 

EXAMPLE 

ENTTER 3X3 MATRIX 
? 

1,4,2,2,4,2,3,5,1 

ORIGINAL MATRIX 

142 

242 

351 

DETERMINANr = 6 

INVERSE OF MATRIX 

-110 

.67- .83 .33 

-.331.17- .67 

TWE 1 TO CONTINUE, TO STOP 
? 

b 

•END 
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DETERMINANT AND INVERSE OF 3 x 3 M 
( START j 

PROMPT I 

INPUT 3 : 

MATRIX 



(PROMPT AND X 
INPUT 3x3 ) 

MATRIX y 



CALCULATE 
DETERMINANT 
AND INVERSE 



C 

c 



PRINT 

ORIGINAL 

MATRIX 



3 



PRINT 
DETERMINANT 



) 



PRINT INVERSE 

OF 

MATRIX 



PROMPT AND 

INPUT CONTINUE 

COMMAND 






/ 1 




58 



DETERMINANT AND INVERSE OF 3 x 3 MATRIX 

10 REM THIS PROGRAM COMPUTES 3x3 MATRIX 

OPERATIONS 

20 PRINT "ENTER 3x3 MATRIX" 

30 INPUT A,B,C,D,E,F,G,H,I 

40 REM COMPUTE DETERMINANT OF 3*3 

50 LET M = (A*E*D + (B*F*G) + (C*H*D) 

60 LET N = M - (C*E*G) - (F*H*A) - a*D*B) 

70 REM COMPUTE INVERSE 

80 LETO = ((E*D-(H*F))/N 

90 LETP = ((G*F)-(D*D)/N 

100 LET Q = ((D*H) - (G*E))/N 

110 LET R = ((H*C) - (B*D)/N 

120 LET S = ((A*D - (G*C))/N 

130 LET T = ((G*B) - (A*H))/N 

140 LET U = ((B*F) - (E*C))/N 

150 LET V = ((D*C) - (A*F))/N 

160 LET W = ((A*E) - (D*B))/N 

170 PRINT "ORIGINAL MATRIX" 

180 PRINT A,B,C 

190 PRINT D,E,F 

200 PRINT G,H,I 

210 PRINT 

220 PRINT "DETERMINANT = ";N 

230 PRINT 

240 PRINT "INVERSE OF MATRIX" 

250 PRINT 0,R,U 

260 PRINT P,S,V 

270 PRINT Q,T,W 

280 PRINT 

290 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

300 INPUT L 

310 FL = 1THEN20 

320 STOP 

330 END 
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FACTORIALS 

ThB program computes by iterative multiplication of the factorial d 
X. 



FORMULA 



Q0(K.-l)(K-2)...QC-X + l) 



D(AMP1£ 

X = 
? 

5 

X = 5X! = 120 

TYPE 1 TO CONTIMJE.O TO STOP 

? 

i 
x = 

? 

7 

X=7X! = 5(M0 

TYPE 1 TO C0NT:[NUE, TO STOP 

? 

1 

x= 

? 

18 

X=18X!=6.40237E15 

TYPE 1 TO CONTINUE, TO STOP 

? 

b 

*END 
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FACTORIALS 




(PROMPT AND ^ 
INPUT X ) 




IS L = 1? 
YES NO STOP 



FACTORIALS 

10 REMTfflSPROGRAMCOMPUTESTHEFACTORIALS 
OFX 

20 REM BY ITERATIVE MULTIPLICATIONS 

30 PRINT "X = "; 

40 INPUTX 

50 LETZ = 1 

60 F0RI = 1T0X 

70 LETZ = Z*I 

80 NEXT I 

90 PRINT "X = ";X,"X! = ";Z 

100 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

110 INPUT L 

120 FL = 1 THEN 140 

130 STOP 

140 PRINT 

150 GOTO 30 

160 END 
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FIBONACCI NUMBERS 

Ths program computes a table of Fibonacci numbers from the first 
two terms entered by the user, v\iio may also specify the maxiniim 
number of temB. 



mmiiiA 








Fi = /* term in Oie sequence; 




For any two terms die 


first term —fi - 2, 


fi=fi.l+fi-2 


second term =fi - 1 


EXAMPLE 








ENTER 1ST TEKVI 








ENTER 2ND TERB/I 








MAXIMUM NUMBER OF TERMS = 


- 




10 

TABLE OF FIBONACCI NUMBERS 






TERM NO. 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 




FIBONACCI NUMBERS 
1 
1 
2 
3 
5 
8 
13 
21 
34 
55 



MAXIMUM NUM£;ER OF TERMS REACHED 

TYPE 1 TO CONTINUE, TO STOP 
? 

i 

ENTER FIRST TERM 

? 

27 
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ENTER SECOND TERM 

? 

MAXIMUM NUMBER OF TERMS = 

? 

5 

TABLE OF FIBONACCI NUMBERS 

TERM NO. FIBONACCI NUMBERS 

1 27 

2 963 

3 990 

4 1953 

5 2943 

MAXIMUM NUMBER OF TERMS REACHED 

TYPE 1 TO CONTINUE, TO STOP 
? 


*END 
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I 




FIBONACCI NUMBERS 



PROMPT AND 

INPUT 
VARIABLES 



:nf~n 

S J 



C PRINT \ 

VTABLE OF NUMBERS^ 



(PRINT N 

"TERM NO." AND ) 
"FIBONACCI NO." y 



(PRINT \ 



(PRINT ^ 
K.B ) 



CALCULATE 

NEXT 

NUMBER 




-j^ 



(PRINT \ 

"MAX TERMS ) 
REACHED" J 



(PROMPT AND >> 
INPUT CONTINUE ) 
COMMAND J 




64 



FIBONACCI NUMBERS 

10 REM TfflS PROGRAM COMPUTES A TABLE OF 
FIBONACCI NUMBERS 

20 PRINT "ENTER FIRST TERM" 

30 INPUT A 

40 PRINT "ENTER SECOND TERM" 

50 INPUT B 

60 PRINT "MAXIMUM NUMBER OF TERMS = " 

70 INPUT N 

80 PRINT 

90 PRIOT "TABLE OF FIBONACCI NUMBERS" 

100 PRINT "TERM NO. "."FIBONACCI NUMBER" 

110 LETK = 1 

120 PRINT K,A 

130 LETK = 2 

140 PRINT K,B 

150 LETK = K + 1 

160 LETQ=A + B 

170 PRINT K,Q 

180 LETA = B 

190 LETB = Q 

200 IFK>=NTHEN220 

210 GOTO 150 

220 PRINT "MAXMUMNUMBEROFTERMS REACHED" 

230 PRINT 

240 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

250 INPUT L 

260 IFL=1THEN280 

270 STOP 

280 PRINT 

290 GOTO 20 

300 END 
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FIRST DERIVATIVE 

TTie user must suppk the expression to conplete the assignment 
statement in line 280. The conputer wl then derive the first 
derivative of the supplied equation. 

FORMULA 

X >0 

fUr^- f(^+^x/2)-f(x-^x/2) 

f w- -^^ 

EXAMPLE 

(ASSUMING THE EQUATION IS XT2) 

VALUE OF X = 

? 

10 

IFX = 10THENF(:X) = 100 

ANDF'(X) = 20 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

VALUE OF X = 
? 

20 

FX = 20THENF(X) = 400 

ANDF'(X) = 40 

TYPE 1 TO CONTINUE, TO STOP 

? 


*END 
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c 




FIRST DERIVATIVE 



PROMPT 
INPUT 



CALCULATE 

DERIVATIVE 

AND F(X) 



G 



PRINT 
, F(X), and F(X) 



PROMPT AND 

NPUT CONTINUE 

COMMAND 








YES 




1 



SUBROUTINE 

FOR 

FUNCTION 



FIRST DERIVATIVE 

10 REM THIS PROGRAM COMPUTES THE FIRST DE- 
RIVATIVE 

20 REM OF A FUNCTION ENTERED BY THE USER 
30 PRINT "VALUE OF X = "; 
40 INPUTV 



6? 



50 


LETY = X 


60 


LETZ = a:*(lE-04))/2 


70 


LETW = X + Z 


80 


LETV = X-Z 


90 


T,ETX = W 


100 


GOSIB280 


110 


LETA = P 


120 


LETX=V 


130 


GOSUB280 


140 


LETB=P 


150 


LETX = Y 


160 


GOSUB 280 


170 


LETC = F 


180 


LETF = (A-B)/2*Z 


190 


PRINT "IF X = ";Y,"THEN F(X) = ";C 


200 


PRIOT "AMD F (X) = ";F 


210 


PRINT 


220 


PRINT 'TYPE 1 TO CONTINUE, TO STOP" 


230 


INPUT L 


240 


IF L = 1 THEN 260 


250 


STOP 


260 


PRINT 


270 


GOTO 40 


280 


LETP = 


290 


RETURN 


300 


END 
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GAMMA FUNCTION AND GENERALIZED FACTORIAL 

This program computes both the gamma function and the 
generalized factorial via polynomial approximation. 

FORMULAE 

r(y)=Jt'<-'e-'dt 



r ODS (1 + Ai(Y) +A2{Y)' AbCO')Z 

where Y = fractional part of X 

where Z=_(X- 1)(X - 2) (X - N) 

andX-N = l + Y 



EXAMPLE 

RUN 

TYPE G FOR THE GAMMA FUNCTION OR 

TYPE F FOR THE GENERALIZED FACTORIAL 

? 

G 

ENTER VALUE OF X 
? 

5 

GAMMA (5) = 24 

TO CONTINUE TYPE Y, IF NOT TYPE N 

Y 

TYPE G FOR THE GAMMA FUNCTION OR 

TYPE F FOR THE GENERALIZED FACTORIAL 

F 

ENTER VALUE OF X 

5 

5! = 120 

TO CONTINUE TYPE Y, IF NOT TYPE N 

? 

N 
*END 
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GAMMA FUNCTION AND GENERALIZED FACTORIAL 




INITIALIZE 
VARIABLES 



PROMPT INPUT \ 








GORF J 


r- 


CALCULATE 






m « 




1 
















.^^""^^^^^^^^ 




A 














IS AS = ■■G''^> 






FACTORIAL 
SUBROUTINE 




POLYNOMIAL 
SUBROUTINE 


V^^ 














^^^ ^\^^ 




CALCULATE 
XI 








tr. Aff ..f '^^^^ 
















\^^ ^^ 






~ 









c 



y^r< 




OUTPUT 
XI 



J 



QAMMA FUNCTION AND GENERALIZED FACTORIAL 

10 REM THIS PROGRAM GENERATES VIA POLY- 
NOMIAL 
20 REM APPROXIMATION THE GAMMA FUNCTION 
30 REM AND THE GENERALIZED FACTORIALS 
40 LET A = 0.57717 
50 LET B = 0.98821 
60 LET C = 0.89706 
70 LET D = 0.91821 
80 LET E = 0.7567 
90 LET F = 0.4822 
100 LET G = 0.19353 



70 



no 


LET H = 0.03587 


120 


PRINT "TYPE G FOR THE GAMMA FUNCTION OR" 


130 


PRINT "TYPE F FOR THE GENERALIZED FAC- 




TORIAL" 


140 


INPUT A$ 


150 


IF A$ = "G" THEN 190 


160 


IF A$ = "F" THEN 300 


170 


PRINT "INVALID RESPONSE" 


180 


GOTO 120 


190 


PRINT "ENTER VALUE OF X" 


200 


INPUT X 


210 


LET K = X 


220 


LET K = K - 1 


230 


IF K > = THEN 260 


240 


PRINT "X MUST BE EQUAL TO OR GREATER 




THAN 1" 


250 


GOTO 190 


260 


GOSUB 490 


270 


IF (X - 1) = INT(X - 1) THEN 410 


280 


GOSUB 570 


290 


GOTO 410 


300 


PRINT "ENTER VALUE OF X" 


310 


INPUT X 


320 


LET K = X 


330 


IF K > = THEN 360 


340 


PRINT "X MUST BE GREATER THAN OR EQUAL 




TOO" 


350 


GOTO 300 


360 


GOSUB 490 


370 


IF X = INT(X) THEN 390 


380 


GOSUB 570 


390 


PRINT X;"! = ";K 


400 


GOTO 420 


410 


PRINT "GAMMA (";X;") = ";K 


420 


PRINT 


430 


PRINT "TO CONTINUE TYPE Y, IF NOT TYPE N" 


440 


INPUT L$ 


450 


IF L$ = "Y" THEN 470 


460 


STOP 


470 


PRINT 


480 


GOTO 120 


490 


LETJ = 1 


500 


LETJ=J*K 
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510 LET K = K - 1 

520 IF K < 1 THEN 540 

530 GOTO 500 

540 LET L = K 

550 LET K = J 

560 RETURN 

570 LET Al = 1 + (A*L) + (B*(L'r2)) + (C*(Lt3)) 

580 LET Al = Al + (D* (Lt4)) + (E*(L'r 5)) + (F*(Lt6) ) 

590 LET Al = Al + (G*(Lf7)) + (H*(Lt8)) 

600 LET K = A1*K 

610 RETURN 

620 END 
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GAUSSIAN PROBABILITY FUNCTION 

Thfe program computes the Gaussian probability function of X. 

FORMUU 

1 X^ 
fQO= e- 

/T^ 2 

EXAMPLES 
X = 

3.2 

F(X) = .00238 

TO CONTINUE TYPE 1, TO STOP 

? 

1 
X = 

4 

F(X) = .000133 

TO CONTINUE TYPE 1, TO STOP 

p 

1 

X = 
? 

1.2 

F(X) = .19418 

TO CONTINUE TYPE 1, TO STOP 



♦END 
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GAUSSIAN PFIOBABILITY FUNCTION 



/^PROMPT + INPUT ^ 



CALCULATE 
f(X) 



(OUTPUT ^ 



/^prompt + input \ 
(continue command 




GAUSSIAN PROBABILITY FUKCTIOi 

10 REM TfflS PROGRAM COMPUTES THE GAUSSIAN 

proba;bility 

20 rem fun ction of x 

30 PRINT "X = "; 

40 INPUT X 

50 LET A = EXP( - (Xt2)/2) 

60 LET B = .398942 

70 LET C = B*A 

80 PRINT "F(X) = ";C 

90 PRINT 

100 PRINT "TO CONTINUE TYPE 1, TO STOP" 

110 INPUT L 

120 IF L = 1 THEN 140 

130 STOP 

140 PRINT 

150 GOTO 30 

160 END 
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GAUSSIAN QUADRATURE 

This program computes the integral f(x)dx for a finite A by the 
6-point Gaussian-Legendre quadrature formula. It should be noted 
that f(x) must be a single-valued function. 



6 

1 

i= il+Cif 



4Di 



f(—^ — +A--\\ 
\l+C. I 



FORMULA 

/ f(x)dx _ _ 

EXAMPLE 

ENDPOINT A = 



INTEGRAL = 0.92 

TYPE 1 TO CONTINUE, TO STOP 

? 


*END 

The LET Q statement in line 470 must be completed by the 
user. Any single-valued expression may be used for f(x). 



c 




GAUSSIAN QUADRATURE 



PROMPT + INPUT 



) 



1 






CALCULATE 
INTEGRAL 


SUBROUTINE 
Q 




« 



c 



OUTPUT ^ 
INTEGRAL' G J 



^PROMPT + INPUT^ 
CONTINUE COMMAND^ 




75 



SAUSSIAN QUADRATURE 

10 REM TfflS PROGRAM COMPUTES THE INTEGRAL 

BETWEEN A 

20 REM AND INFINITY BY GAUSSIAN QUADRATURE 

30 LET C:i = .238619 

40 LET C2 = - CI 

50 LET C3 = .661209 

60 LET C4 = - C3 

70 LET C5 = .932470 

80 LET C6 = - C5 

90 LET Dl = .467914 
100 LET D2 = .360762 
110 LET D3 = .171324 
120 LETJ = 
130 PRINT "ENDPOINT A = "; 
110 INPUT A 

150 LET X = (2/(1 + CD) + (A - 1) 
160 GOSUB 470 

170 LET N = ((4*D1)/(1 + Cl)t2)*Q 

180 LETJ=J + N 

190 LET X = (2/(1 + C2)) + (A - 1) 
200 GOSUB 470 

210 LET N = ((4*D1)/(1 + C2)t2)*Q 

220 LETJ=J + N 

230 LETX = (2/(1+C3)) + (A- 1) 

240 GOSUB 470 

250 LET N = ((4*D2)/(1 + C3)f 2)*Q 

260 LETJ:=J + N 

270 LET X = (2/(1 + C4)) + (A - 1) 

280 GOSUB 470 

290 LET N = ((4*D2)/(1 + C4)t2)*Q 

300 LETJ==J + N 

310 LET X = (2/(1 + C5)) + (A - 1) 

320 GOSUB 470 

330 LET N = ((4*D3)/(1 + C5)t2)*Q 

340 LETJ==J + N 

350 LET X = (2/(1 + C6)) + (A - 1) 

360 GOSUB 470 

370 LET N = ((4*D3)/(1 + C6)t2)*2 

380 LETJ=:J + N 

390 LET G = J/2 

400 PRINT "INTEGRAL = ";G 
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410 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

420 INPUT L 

430 IF L = 1 THEN 450 

440 STOP 

450 PRINT 

460 GOTO 120 

470 LET Q = 

480 RETURN 

490 END 
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6ENERALIZED MEAN 

This program computes the generalized mean, which becomes equal 
to the arithmetic mean if the T entered by the user is 1, and equal to 
the harmonic mean if the user enters - 1. 



FORMULA 



M(T) = f -L X X ^\t where X > 



EXAMPLE 

T = 
p 

4 

INPUT SAMPLE 

5 

GENERALIZED MEAN 

M(T) = 5 WHERE T = 4 

TYPE 1 TO CONTINUE, TO STOP 
p 



*END 
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GENERALIZED MEAN 



INITIALIZE 
VARIABLES 



/ PROMPT + INPuf\ 




YES 



UPDATE J 
ANDN 



COMPUTE 
MEAN 



OUTPUT ^ 

M(T) AND T J 



/ PROMPT + INPUT>w 

(continue command) 
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GENERALIZED MEAN 

10 REM TfflS PROGRAM COMPUTES THE GENER- 
ALIZED MEAN 
20 REM IF T = 1, THEN THE GENERALIZED MEAN 

M(T) 
30 REM IS EQUAL TO THE ARITHMETIC MEAN. IF 

T = - 1 
40 REM THE^f M(T) IS EQUAL TO THE HARMONIC 

MEAN 
50 LETJ = 
60 LET N = 
70 PRINT "T =: ": 
80 INPUT T 

90 PRINT "INPUT SAMPLE"; 
100 INPUT X 
110 IF X = THEN 150 
120 LETJ=J + (XfT) 
130 LET N = N + 1 
140 GOTO 90 
150 LET G = a/N)f (1/T) 
160 PRINT "GENERALIZED MEAN" 
170 PRINT "M(T) = ";G, "WHERE T = ";T 
180 PRINT 

190 PRINT "TYPE 1 TO CONTINUE, TO STOP" 
200 INPUT L 
210 IF L = 1 THEN 230 
220 STOP 
230 PRINT 
240 GOTO 50 
250 END 
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GEOMETRIC MEAN 

This program computes the geometric mean ot the sample entered 
by the user until a is entered for the sample. 



G = y (aiKaa) (an) 



FORMULA 

EXAMPLE 

SAMPLE = 
? 

2 

NUMBER OF SAMPLES = 1 CURRENT SAMPLE = 2 
CURRENT MEAN = 2 
SAMPLE = 
? 

5 

NUMBER OF SAMPLES = 2 CURRENT SAMPLE = 5 
CURRENT MEAN = 3.1623 
SAMPLE = 
? 



TYPE 1 TO CONTINUE, TO STOP 
? 



•END 



( START j 



GEOMETRIC MEAN 






INITIALIZE 
VARIABLES 



(PROMPT + INPUT A 
SAMPLE J 




/^PROMPT + INPLTTN 
(CONTINUE COMMANU 
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GEOMETRIC MEAN 


10 


REM TfflS PROGRAM COMPUTES THE GEOMETRIC 




MEAN 


20 


REM AFTER EACH SAMPLE IS ENTERED, THE 




NUMBER OF 


30 


REM SAMPLES, THE CURRENT SAMPLE AND CUR- 




RENT MEAN 


40 


REM IS PRINTED. 


50 


LET Y = 1 


60 


LET N = 


70 


PRINT "SAIvlPLE = "; 


80 


INPUT W 


90 


IF W = THEN 160 


100 


LET N = N + 1 


110 


LET Y = Y*W 


120 


LET G = Yt(l/N) 


130 


PRINT "NUMBER OF SAMPLES = ";N,"CURRENT 




SAMPLE = ";W 


140 


PRINT "CURRENT MEAN = ";G 


150 


GOTO 70 


160 


PmNT 


170 


PRINT "TYPE 1 TO CONTINUE, TO STOP" 


180 


INPUT L 


190 


IF L = 1 THEN 210 


200 


STOP 


210 


PRINT 


220 


GOTO 50 


230 


END 
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GEOMETRIC PROGRESSION 

From the following information: first term, ratio of terms, anu 
number of terms, this program computes the geometric progres- 
sion. 

FORMULA 

A,AR,ARl..,AR"-' 
EXAMPLE 

FIRST TERM = 
? 

io 

RATIO OF TERMS = 
? 

2 

NUMBER OF TERMS = 
? 

5 

FOR TABLE, TYPE 1, IF NOT TYPE 

? 

1 

GEOMETRIC PROGRESSION 

TERM NUMBER TERM VALUE 

1 10 

2 20 

3 40 

4 80 

5 160 
SUM = 310 

TYPE 1 TO CONTINUE, TO STOP 

? 


*END 
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GEOMETRIC PROGRESSION 
[ START j 

i_^ 

/^PROMPT + INPUT ^ 
V ^ VARIABLES J 



(PROMPT + INPUt\ 
TABLE COMMAND^ 




PRINT ^ 

TABLE HEADER J 



COMPUTER 
PROGRESSION 



OUTPUT ^ 




' 



/^PROMPT + INPUT \ 
(continue COMMAND 
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GEOMETRIC PROGRESSION 

10 REM TfflS PROGRAM COMPUTES THE VALUES AND 
THEIR SUM 

20 REM OF A GEOMETRIC PROGRESSION 

30 PRINT "FIRST TERM = "; 

40 INPUT A 

50 PRINT "RATIO OF TERMS = "• 

60 INPUT R 

70 PRINT "NUMBER OF TERMS = "; 

80 INPUT N 

90 PRINT "FOR TABLE TYPE 1, IF NOT TYPE 0" 

100 INPUT C 

110 IF C = 1 THEN 130 

120 GOTO 160 

130 PRINT 

140 PRINT "GEOMETRIC PROGRESSION" 

150 PRINT "TERM NUMBER";, "TERM VALUE": 

160 LETJ = 

170 FOR I = TO N - 1 

180 LET K = I + 1 

190 LET L = A*(Rf D 

200 LETJ=J + L 

210 IF C = 1 THEN 230 

220 GOTO 240 

230 PRINT K,L 

240 NEXT I 

250 PRINT "SUM = ";J 

260 PRINT 

270 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

280 INPUT X 

290 IF X = 1 THEN 310 

300 STOP 

310 PRINT 

320 GOTO 30 

330 END 
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HARMONIC MEAN 

This program computes the harmonic mean of the samples entered 
by the user, until a is entered for the sample. 



FORMULA 



N 



H = 



N 1 

1 

1 =1 



Oi 



EXAMPLE 

SAMPLE = 

2 

N = 1 SAMPLE = 2 CURRENT MEAN = 2 

SAMPLE = 

5 

N = 2 SAMPLE = 5 CURRENT MEAN = 2.86 

SAMPLE = 
? 

7 

N = 3 SAMPLE = 7 CURRENT MEAN = 3.56 

SAMPLE = 

? 



TYPE 1 TO CONTINUE, TO STOP 



*END 
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HARMONIC MEA»f' 




HARMONIC MEAN 

10 REM THIS PROGRAM COMPUTES THE HARMONIC 
MEAN 

20 REM OF THE SAMPLES ENTERED BY THE USER 

30 LET Z = 

40 LET N = 

50 PRINT "SAMPLE = "; 

60 INPUT X 

70 IF X = THEN 130 

80 LET N = N + 1 

90 LET Z = Z + (1/X) 

100 LET H = N/Z 

110 PRIxNT "N = ";N, "SAMPLE = ";X,"CURRENT MEAN 

— "'H 

120 GOTO 50 

130 PRINT 

140 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

150 INPUT L 

160 IF L = 1 THEN 180 

170 STOP 

180 PRINT 

190 GOTO 30 

200 END 
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HARMONIC NUMBERS 

This program computes the first N harmonic numbers where N is 
entered by the user. 

FORMULA 

1, 1 + 1/2, 1 + 1/2 + 1/3, 1 + V2 + 1/3 + 1/4, ... 



EXAMPLE 




MAXIMUM TERM NUMBER 
9 




35 




TERM NUMBER 


TERM VALUE 


1 


1 


2 


1.5 


3 


1.83333 


4 


2.08333 


5 


2.28333 


6 


2.45 


7 


2.59285 


8 


2.71785 


9 


2.82896 


10 


2.92896 


11 


3.01987 


12 


3.10321 


13 


3.18013 


14 


3.25156 


15 


3.31822 


16 


3.38072 


17 


3.43955 


18 


3.49510 


19 


3.54774 


20 


3.59773 


21 


3.64535 


22 


3.69081 


23 


3.73429 


24 


3.77595 


25 


3.81595 


26 


3.85442 


27 


3.89145 


28 


3.92717 


29 


3.96165 


30 


3.99498 
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TERM NUMBER 


TERM VALUE 


31 


4.02724 


32 


4.05849 


33 


4.08879 


34 


4.11821 


35 


4.14678 


36 


4.17456 


*END 






(PROMPT + INPUtA 
MAX TERM # J 



INITIALIZE 
VARIABLES 



(PRINT TERM # + "\ 
TERM VALUE ) 



HARMONIC NUMBERS 



COMPUTE 

HARMONIC 

NUMBERS 
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HARMONIC NUMBER!) 

10 REM THIS PROGRAM COMPUTES HARMONIC 
NUMBERS 

20 PRINT "MiiiXIMUM TERM NUMBER" 

30 INPUT N 

40 LET K = 

50 LET D = 

60 PRINT "TERM NUMBER". "TERM VALUE" 

70 FOR I = TO N 

80 LET K = I + 1 

90 LET C = 1/K 

100 LET D = D + C 

110 PRINT K,D 

120 NEXT I 

130 PRINT 

140 END 
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HARMONIC PROGRESSIONS 

This program computes from the following information the values of 
A and B, the difference and the number of terms desired. At the 
user's option a table of progressions may be generated. In either 
case the sum of the number of terms is produced. 

FORMULA 

A A A 



B, 


B + D , B + 2D,.. 


. B + (N- 1)D 


EXAMPLE 






VALUE OF A = 






10 

VALUE OF B = 






2 
DIFFERENCE = 


= 




3 

NUMBER OF TERMS = 




20 

FOR TABLE TYPE 1, IF NOT TYPE 


1 

HARMONIC PROGRESSION 

TERM NUMBER TERM VALUE 




1 
2 
3 
4 
5 
6 
7 
8 


5 

2 

1.25 

.90901 

.714286 

.588235 

.5 

.434783 




9 
10 
11 
12 


•384615 
.344828 
.3125 
.285714 
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TERM NUMBER 


TERM VALUE 


13 


.263158 


14 


.243802 


15 


.227273 


16 


.212766 


17 


.2 


18 


.188679 


19 


.178571 


20 


.169492 


SUM = 14.4078 




Utr^^plf^t******************************* 


TYPE 1 TO CONTINUE, 


TO STOP 







*END 
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HARMONIC PROGRESSIONS 
/ PROMPT + INPUT^ 



/promftT^nput^ 

I prompt + inputN 
V 1^ J 



/prompt + INPufN 




YES 



_/" OUTPUT \ 
"\^ TABLE HEADER J 



J 



CALCULATE 
TERM NUMBER 
+ TERM VALUE 




^^^ /" OUTPUT ^ 

l^NUMBER + VALVEy 



J^ OUTPUT ^ 
"\ SUM J 
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HARMONIC PROGRESSIONS 

10 REM THIS PROGRAM COMPUTES A SERIES OF 

HARMONIC 

20 REM PROGRESSIONS 

30 PRINT "VA1.UE OF A = " 

40 INPUT A 

50 PRINT "VA].UE OF B = " 

60 INPUT B 

70 PRINT "DIFFERENCE = " 

80 INPUT D 

90 PRINT "NUMBER OF TERMS = " 

100 INPUT N _^^ ^, 

110 PRINT "FOR TABLE TYPE 1. IF NOT TYPE 0" 

120 INPUT C 

130 IF C = 1 THEN 150 

140 GOTO 170 

150 PRINT "Hi^.RMONIC PROGRESSION" 

160 PRINT "TERM NUMBER',"TERM VALUE" 

170 LET J = 

180 FOR I = to N - 1 

190 LET K = I + 1 

200 LET L = A/(B + (I*D)) 

210 LETJ=J + L 

220 IF C = 1 THEN 240 

230 GOTO 250 

240 PRINT K,L 

250 NEXT I 

260 PRINT "SUM = ";J 

970 PRINT "*********************" 

280 PRINT "TiPE 1 TO CONTINUE, TO STOP" 

290 INPUT X 

300 IF X = THEN 320 

310 STOP 

320 PRINT 

330 GOTO 30 

340 END 
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HYDROCARBON COMBUSTION 

This program simulates the burning of a hydrocarbon compound; 
complete combustion is assumed, and the option of excess air is 
available. 

FORMULAE 

AIR = 1 + % EXCESS AIR/100 

O2 = C + S + H/4 - 0/2 

AF(MOLES) = 02(4.762)AIR 

AF(MASS) = 1.8094(AF MOLES)/.7507C + 0.063H 

+ 2.004S + 0.875N + 

TOTAL MOLES = 02(4.762 AIR) + H/4 + 0/2 + N/2 

VOLUME % CO2 = lOOC/M 

VOLUME % SO2 = lOOS/M 

VOLUME % H2O = 100H/2M 

VOLUME % O2 = lOOCAIR - 1)02/M 

VOLUME % N2 = (100((3.762)AIR(02) + N/2)/M 
EXAMPLE 

RUN 

FOR INSTRUCTIONS TYPE YES, IF NOT TYPE NO 

NO 

ENTER CARBON(C), HYDROGEN(H), OXYGEN(O), SUL- 

PHUR(S), NITROGEN(N) IN THAT ORDER 

? 

1,4,0,0,0 

ENTER PERCENTAGE EXCESS AIR, IF ZERO 

ENTER 0, EXAMPLE: - 34% ENTER AS 34 



AIR-FUEL RATIO WITH RESPECT TO MOi.£S = 9 52 

AIR-FUEL MTIO WITH RESPECT TO MASS = 17 19 

TOTAL MOLES OF PRODUCTION = 10.52 

******PERCENTAGE OF VOLUME OF PRODUCETS****** 

CARBON DIOXIDE = 9.50% 

SULPHUR DIOXIDE = 0.0% 

WATER = 19.0% 

OXYGEN = 0.0% 

NITROGEN = 71.49% 

•*****COMPLETE COMBUSTION ASSUMED**'*** 

TO TRY NEXT COMPOUND TYPE YES 

TO STOP TYPE NO 

NO 

COMBUSTION SAYS GOOD-BYE 
*END 
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HYDROCARBON COMBUSTION 




(PROMPT + INPUTS 
INSiTRUCTION ) 
COMMAND J 




YES 



COMPUTE MASS 

NOTES + 
PEF1CENTAGES 



(OUTPUT ^ 
RESULTS J 



/^PROMPT + INPUTS 
(continue COMMAND) 
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HYDROCARBON COMBUSTION 

10 REM TfflS PROGRAM COMPUTES THE PERCENT- 
AGES OF THE 

20 REM PRODUCTS PRODUCED BY HYDROCARBON 
COMBUSTION 

30 PRINT "FOR INSTRUCTIONS TYPE YES, IF NOT 
TYPE NO" 

40 INPUT 1$ 

50 IF 1$ = "YES" THEN 90 

60 IF 1$ = "NO" THEN 130 

70 PRINT "INVALID COMMAND" 

80 GOTO 30 

90 PRINT "THE AMOUNTS OF EACH ELEMENT MUST 

BE" 
100 PRINT "ENTERED, EVEN IF THE AMOUNT IS ZERO" 
110 PRINT "EXAMPLE: - METHANE (CH4) MUST BE 

ENTERED AS" 
120 PRINT "C;l, H;4, O;0, S;0, N;0" 
130 PRINT 
140 PRINT "ENTER CARBON(C), HYDROGEN(H), OXY- 

GEN(O)" 
150 PRINT "SULPHUR(S). NITROGEN(N) IN THAT 

ORDER" 
160 INPUT C,H,0,S,N 
170 PRINT "ENTER PERCENTAGE EXCESS AIR. IF 

ZERO" 
180 PRINT "ENTER 0, EXAMPLE:- 34% ENTER AS 34" 
190 INPUT E 
200 LET E = 1 + (E/lOO) 
210 LET 02 = C + S + (H/4) - (0/2) 
220 LET A = 02*E*4.762 
230 LET Al = 1.8094*A 

240 LET F = (0.7507*0 + (0.063*H) + (2.004*S) 
250 LET F = (0.875*N) + + F 
260 LET Al = Al/F 
270 LET M = A + (HP4) + (0/2) + (N/2) 
280 LET C2 = (C*100)/M 
290 LET S2 = (S*100)/M 
300 LET H2 = (H*100)/(2*M) 
310 LET 03 = (100*(E- 1)*02)/M 
320 LET N2 = (100*((3.762*E*02) +(N/2)))/M 
330 PRINT 
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340 PRINT "AIR-FUEL RATIO WITH RESPECT TO 
MOLES = ";A 

350 PRINT "AIR-FUEL RATIO WITH RESPECT TO 
MASS = "'Al 

360 PRINT "TOTAL MOLES OF PRODUCT = ";M 

370 PRINT "******PERCENTAGE VOLUME OF PRO- 
DUCTS******" 

380 PRINT "CARBON DIOXIDE = ";C2;" % " 

390 PRINT "SULPHUR DIOXIDE = ";S2;" % " 

400 PRINT "WATER = ";H2;" % " 

410 PRINT "OXYGEN = ";03;" % " 

420 PRINT "NITROGEN = ";N2;" % " 

430 PRINT "*'■**** COMPLETE COMBUSTION AS- 
SUMED******" 

440 PRINT 

450 PRINT "TO TRY NEXT COMPOUND TYPE YES" 

460 PRINT "TO STOP TYPE NO" 

470 INPUT L$ 

480 IF L$ = "YES" THEN 510 

490 PRINT "COIVIBUSTION SAYS GOOD-BYE" 

500 STOP 

510 PRINT 

520 GOTO 30 

530 END 
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HYPERBOLIC FUNCTIONS 

This program computes the following hyperbolic trigonometric func- 
tions: sinH, cosH, tanH, cscH, secH, cotH. 

FORMUUE 



e" — e " " I 

sinHs; = cscBx = 



2 sinH X 



cosH:r = ^^ — secH^C 



cx)sH;c 



e'' - e~ " TT 1 



tanHA; = -^--rnr cotRx = 



EXAMPLE 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 

? 

i 
x = 

? 

4 

Sim 4 = 27.2899 

TYPE 1 TO CONTINUE, TO STOP 

i 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 

2 

X = 

? 

5 

COSH 5 = 74.2099 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
p 

3 

X = 
? 

.02 

TANH .02 = .019997 
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TYPE 1 TO CONTINUE, TO STOP 

? 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 

? 

4 

X = 
? 

3.5 

CSCH 3.5 = .060449 

TYPE 1 TO CONTINUE, TO STOP 

p 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 

? 

5 
X = 

12 

SECH 12 = .000012 

TYPE 1 TO CONTINUE, TO STOP 

p 

i 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 

p 

6 

X = 
p 

.3 

COTH .3 = 3.43273 

TYPE 1 TO CONTINUE, TO STOP 

? 

b 

*END 



100 



c 




HYPERBOLIC FUNCTIONS 



(PROMPT + INPUT"^ 
DESIRED OPTION J 



CALCULATE 
DESIRED 
OPTION 



OPTION 
SUBROUTINE 



(PROMPT +^ 
INPUT X J 



{ OUTPUT N 
\RESULT OF OPTION^ 




HYPERBOLIC FUNCTIONS 



10 


REM TfflS PROGRAM COMPUTES HYPERBOLIC 




FUNCTIONS 


20 


PRINT "SINK (1)" 


30 


PRINT "COSH (2)" 


40 


PRINT "TANH (3)" 


50 


PRINT "CSCH (4)" 


60 


PRINT "SECH (5)" 


70 


PRINT "COTH (6)" 


80 


PRINT "TYPE A NUMBER 1 TO 6 FOR FUNCTION 




DESIRED" 


90 


INPUT C 


100 


ON C GOTO 110,160,200,270,320,370 


110 


GOSUB490 


120 


GOSUB520 


130 


LETZ = Y/2 
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140 PRINT "SINH";X; =" ;Z 

150 GOTO 420 

160 GOSUB 490' 

170 GOSUB 540 

180 LETZ = B/2 

190 PRINT "COSH";X;" = ";Z 

200 GOTO 420 

210 GOSUB 490 

220 GOSUB 520 

230 GOSUB 540 

240 LETZ = Y,/B 

250 PRINT "Ty^MI";X;" = ";Z 

260 GOTO 420 

270 GOSUB 490 

280 GOSUB 520 

290 LETZ = LW2) 

300 PRINT "CSCH";X;" = ";Z 

310 GOTO 420 

320 GOSUB 490 

330 GOSUB 540 

340 LETZ = l/(B/2) 

m PRINT "SECH";X;" = ";Z 

Sm GOTO 420 

370 GOSUB 490 

380 GOSUB 520 

3% GOSUB 540 

400 LETZ = l/(y/B) 

410 PRINT "C(yffl";X;" = ";Z 

420 PRINT 

430 PRINT "TIPE 1 TO CONTINUE, TO STOP" 

440 INPUT L 

450 IFL = nHEN470 

460 STOP 

470 PRINT 

480 GOTO 80 

490 PRINT "X = " 

m INPUTX 

510 RETURN 

520 LET Y = EXP(X) - EXP( - X) 

530 RETURN 

540 LETB = ]EXP(X) + EXP(-X) 

550 RETURN 
560 END 
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I CHING (THE CHINESE BOOK OF CHANGES) 

The I Ching is a collection of 64 hexagrams used to determine 
possible future events. It was inspired by the ancient Chinese. Each 
hexagram consists of six lines which may be broken (- -) or 
unbrokenC— ). The user of the I Ching may throw coins or sticks to 
produce the six lines. This program computes the six lines randomly 
on an algorithm using the date and time. The meanings of each of the 
possible 64 hexagrams may be looked up in the Chinese Book of 
Changes (The I Ching). 

EXAMPLE 

RUN 

ENTER DATE AS M,D,Y 

8,28,1977 

ENTER TIME AS H,M(24 HOUR CLOCK) 
? 

9,56 



TO CONTINUE TYPE Y, IF NOT TYPE N 

N 

THE I CHING SAYS GOOD-BYE 

*END 
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CHING 
START j 



(PROMPT + INPUT A 
DATE + TIME J 



COMPUTE N 



COMPUTE 
C{l) 



PRINT 

HEXAGRAM 

C(l) = 1 OR 2 





^ 



YES f PROMPT + INPUT 

CONTINUE COMMAND. 



4d) 



YES 
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i CHiNG 

10 REM THIS PROGRAM SIMULATES THE I CHING 

20 RANDOMIZE 

30 PRINT "ENTER DATE AS M.D.Y" 

40 INPUT M.D.Y 

50 PRINT "ENTER TIME AS H,M(24 HOUR CLOCK)" 

60 INPUT H,M1 

70 LET N = M + (D/30) + (Y/lOO) + H + (Ml/60) 

80 FOR I = 1 TO 6 

90 LET K = N*RND(0) 

100 LET K = K - INT(K) 

110 LET C(D = 1 + INT(2*K) 

120 NEXT I 

130 FOR I = 1 TO 6 

140 IF C(I) = 1 THEN 170 

150 PRINT "-" 

160 GOTO 180 

170 PRINT "- -" 

180 NEXT I 

190 PRINT 

200 PRINT "TO CONTINUE TYPE Y. IF NOT TYPE N" 

210 INPUT L$ 

220 IF L$ = "Y" THEN 250 

230 PRINT "THE I CHING SAYS GOOD-BYE" 

240 STOP 

250 PRINT 

260 GOTO 30 

270 END 



105 



2 



INTEI3RAL BETWEEN TWO LIMITS 

This program computes the integral between the limits of finite 
points A and B for single-valued function /(«) by the six-point 
Gauss-Legendre quadrature formula. 

FORMULA 

.-I 

EXAMPLE 

Where m = 13*Xt2 - 6*XT2 -I- SINOO H- \IX) 

ENTER ENDPOINTS A,B 

? 

- 1,1 

MTEGRAL = 4.28786 

TYPE 1 TO CONTmUE, TO STOP 

? 


*END 
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INITIALIZE 
CONSTANTS 



( PROMPT + INPUT^ 
V A'B ) 



CALCULATE 
INTEGRAL 



FUNCTION 
SUBROUTINE 



(OUTPUT \ 
INTEGRAL ) 



/ PROMPT +INPUTA 
fcONTlNUE command) 




NTEGRAL BETWEEN TWO LIMITS 



INTEGRAL BETWEEN TWO LIMITS 

10 REM THIS PROGRAM COMPUTES THE INTEGRAL 

BETWEEN 

20 REM THE LIMITS A AND B OF F(X) 

30 LET CI = .238619 

40 LET C2 = CI 

50 LET C3 = .661209 

60 LET C4 = C3 

70 LET C5 = .932470 

80 LET C6 = C5 

90 LET Dl = .467914 
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100 


LET D2 = .360762 


110 


LET D3 = .171324 


120 


LET J = 


130 


PRINT "ENTER ENDPOINTS A,B" 


140 


INPUT A,B 


150 


LET Y = B - A 


160 


LET Z = B + A 


170 


LET X = ((C1*Y) + Z)/2 


180 


GOSUB 500 


190 


LET N = D1*Q 


200 


LETJ=J + N 


210 


LET X = ((C2*Y) + Z)/2 


220 


GOSUB 500 


230 


LET N = D1*Q 


240 


LETJ=J + N 


250 


LET X = ((C3*Y) + Z)/2 


260 


GOSUB 500 


270 


LET N = D2*Q 


280 


LETJ=J + N 


290 


LET X = ((C4*Y) + Z)/2 


300 


GOSUB 500 


310 


LET N = D2*Q 


320 


LETJ=JH-N 


330 


LET X = ((C5*Y) + Z)/2 


340 


GOSUB 500 


350 


LET N = D3*Q 


360 


LET J = J -h N 


370 


LET X = ((C6*Y) + Z)/2 


380 


GOSUB 500 


390 


LET N = D3*Y 


400 


LETJ=J-1-N 


410 


LET G = (Y/2)*J 


420 


PRINT "INTEGRAL = ";G 


430 


PRINT 


440 


PRINT "TYPE 1 TO CONTINUE, TO STOP' 


450 


INPUT L 


460 


IF L = 1 THEN 480 


470 


STOP 


480 


PRINT 


490 


GOTO 120 


500 


LET Q = 13*Xt2 -6*Xt2 + SIN(X) + 1/X 


510 


RETURN 


520 


END 
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INTERACTIVE GROWTH PAHERN 

This program computes a growth pattern between two quantities 
called X and Y, where the existence of Y depends on the destruction 
of an X, but to be just, X can propagate. 

EXAMPLE 

NUMBER OF DESTROYERS (Y) = 



201 




NUMBER OF CREATORS (X) = 

? 


347 




PROPAGATION RATE OF X = 


6 

CHANCE OF MEETING BETWEEN X AND Y = 
p 


.01 




TIME BETWEEN SAMPLE DISPLAYED = 
? 


.5 

MAXIMUM GENERATIONS = 


10 




INTERACTIVE GROWTH PATTERN 


CREATOR 


DESTROYER 


1039 


449 


1822 


2558 





24600 





12300 





6150 





3075 





1537 





768 





384 





192 


MAXIMUM NUMBER OF GENERATIONS REACHEI 


FOR FURTHER GENERATIONS, TYPE 1, IF NOT 
? 


1 

MAXIMUM 


GENERATIONS = 



109 



10 



















96 

48 

24 

12 

6 

3 

1 





ALL GROWTH ENDED 

NUMBER OF GENERATIONS = 18 

FOR NEXT PATTERN TYPE 1, TO STOP 

? 


*END 




/^PROMPT 4- INPUT "N 
V^SVSTEM VARIABLES/ 



r 



D 




PRINT 
GROWTH €NDED 



OUTPUT 
OF GENERATION 



) 



INTERACTIVE GROWTH PATTERN 



/ PRINT \ 

(max GENERATIONS) 

CRINTGENEBATIOrf\ 
CONTINUE 1 

COMMAND J 




110 



INTERACTIVE GROWTH PAHERN 

10 REM TfflS PROGRAM COMPUTES THE GROWTH 

PATTERN BETWEEN 

20 REM A QUANTITY Y THE DESTROYER AND A 

QUANTITY X 

30 REMTHECREATOR.XCANPROPAGATE,ANDONA 

40 REM CHANCE METTING BETWEEN X AND Y, X IS 

DESTROYED, 

50 REM THUS INCREASING THE NUMBER OF YS. 

60 PRINT "NUMBER OF DESTROYERS (Y) = "; 

70 INPUT Y 

80 PRINT "NUMBER OF CREATORS (X) = "; 

90 INPUT X 

100 PRINT "PROPAGATION RATE OF X = "; 

110 INPUT Z 

120 PRINT "CHANCE OF METTING BETWEEN X AND Y 

130 INPUT A 

140 PRINT "TIME BETWEEN SAMPLES = "; 

150 INPUT H 

160 PRINT "MAXIMUM GENERATIONS = "; 

170 INPUT K 

180 LETJ = 

190 PRINT 

200 PRINT "INTERACTIVE GROWTH PATTERN" 

210 PRINT 

220 PRINT "CREATOR"."DESTROYER" 

230 IFJ = KTHEN470 

240 LETJ=J + 1 

250 LET B = A*X*Y 

260 LET C = ((Y - B)*H) + Y 

270 IF C < THEN 390 

280 LET Y = C 

290 LET D = (((X*Z) - B)*H) + X 

300 IF D < THEN 140 

310 LET X = D 

320 LET M = INT(X) 

330 LET N = INT(Y) 

340 PRINT M,N 

350 IF M = THEN 370 

360 GOTO 230 

370 IF N = THEN 430 

380 GOTO 230 
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390 


LET Y = 


400 


GOTO 290 


410 


LET X = 


420 


GOTO 320 


430 


PRINT "ALL GROWTH ENDED" 


440 


PRINT "NUMBER OF GENERATIONS = ";J 


450 


PRINT 


460 


GOTO 560 


470 


PRINT "M/iXIMUM NUMBER OF GENERATIONS 




REACHED" 


480 


PRINT 


490 


PRINT "FOR FURTHER GENERATIONS TYPE 1, IF 




NOT 0" 


500 


INPUT W 


510 


IF W = 1 THEN 530 


520 


GOTO 560 


530 


PRINT "M/kXIMUM GENERATIONS = "; 


540 


INPUT K 


550 


GOTO 230 


560 


PRINT 


570 


PRINT "FOR NEXT PATTERN TYPE 1, TO STOP" 


580 


INPUT W 


590 


IF W = 1 THEN 610 


600 


STOP 


610 


PRINT 


620 


GOTO 60 


630 


END 
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INVERSE HYPERBOLIC FUNCTIONS 

This program computes the following h3T)erbolic trigonometric func- 
tions: sinH- ', cosH- \ tanH" \ cscH" \ secH" ^ cotH" ' 

FORMULAE 

sin H' h = ln(X + (x^ + 1)-^) 
cos H- 'x = ln(x + (x" - 1)-^) 

tanH-^x = -ln\j-rrj 
CSC H~ ^x = sin H~ ' \x ) 
sec H' 'x = cos H-'{^j 

cotH-'x=tanH-'iY) 

EXAMPLE 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 

1 
X = 

? 

12 

SINH- 112 = 3.17979 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 

2 
X = 

? 

45 

COSH - 1 45 = 4.49969 

TYPE 1 TO CONTINUE, TO STOP 
? 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 

3 
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x = 

p 

.00055 

TANK - 1 .00055 == .00055 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 

? 

4 

X = 

? 

23 

CSCH - 1 23 = .04346 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 

5 

X = 
p 

.125 

SECH- 1.125 = 2.76866 

TYPE 1 TO CONTINUE, TO STOP 

p 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 

p 

6 

X = 
? 

8 

COTH- 18 = .12566 

TYPE 1 TO CONTINUE, TO STOP 

p 



*END 
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INVERSE HYPERBOLIC FUNCTIONS 



I START j 



c 



PRINT 
OPTIONS 



J 



(PROMPT + INPUT^ 
DESIRED OPTION y 



CALCULATE 
DESIRED 
OPTIONS 



OPTION 
SUBROUTINE 



Q 



OUTPUT 
RESULT OF OPTION 



i> 



^PROMPT + INPUtA 



/^ PROMPT + INPUT ^ 

togTiNUE command; 




INVERSE HYPERBOLIC FUNCTIONS 

10 REM TfflS PROGRAM COMPUTES INVERSE HYPER- 
BOLIC FUNCTIONS 

20 PRINT "SINH - 1 (1)" 

30 PRINT "COSH - 1 (2)" 

40 PRINT "TANH - 1 (3)" 

50 PRINT "CSCH - 1 (4)" 

60 PRINT "SECH - 1 (5)" 

70 PRINT "COTH - 1 (6)" 
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80 


PRINT "TYI'E A NUMBER 1 TO 6 FOR FUNCTION 




DESIRED" 


90 


INPUT C 


100 


ON C GOTO 110,150,190,230,280.330 


110 


GOSUB 440 


120 


GOSUB 470 


130 


PRINT "SINE - 1";X;" = ";Z 


140 


GOTO 370 


150 


GOSUB 440 


160 


GOSUB 490 


170 


PRINT "COSH - 1";X;" = ";Z 


180 


GOTO 370 


190 


GOSUB 440 


200 


GOSUB 510 


210 


PRINT "TANH - 1";X;" = ";Z 


220 


GOTO 370 


230 


GOSUB 530 


240 


GOSUB 470 


250 


LET X = A 


260 


PRINT "CSCH - 1";X;" = ";Z 


270 


GOTO 370 


280 


GOSUB 530 


290 


GOSUB 490 


300 


LET X = A 


310 


PRINT "SECH - r';X;" = ";Z 


320 


GOTO 370 


330 


GOSUB 530 


340 


GOSUB 510 


350 


LET X = A 


360 


PRINT "COTH - 1";X;" = ";Z 


370 


PRINT 


380 


PRINT "TWE 1 TO CONTINUE, TO STOP" 


390 


INPUT L 


400 


IF L = 1 THEN 420 


410 


STOP 


420 


PRINT 


430 


GOTO 80 


440 


PRINT "X = "; 


450 


INPUT X 


460 


RETURN 


470 


LET Z = LOG(X + SQR((Xt2) + 1)) 


480 


RETURN 


490 


LET Z = LOG(X + SQR((Xt2) - 1)) 
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500 


RETURN 




510 


LET Z = (L0G((1 + X/(l - 


- X)))/2 


520 


RETURN 




530 


PRINT "X = "; 




540 
550 


INPUT X 

LET A = X 




560 


LET X = 1/X 




570 


RETURN 




580 


END 
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L-PAD MINIMUM LOSS SYSTEM 

In systems where two resistive stages must be coupled, a minimum 
loss L-pad can be used for matching. A typical application for this pad 
would be to couple inputs and outputs of audio circuits. The user 
inputs the two impedances Zi and Z2; the program responds with the 
L-pad resistors Ri and R2, and also the system loss in decibels. 

FORMULAE 

L PAD MIN LOSS 

R1 
O VNAr 



,«»_Z1_BB^ ^R2^«t-Z2-««^ Zi>Z2 

^ ^ o 



Ri = 


Zi / 1 - Z2 
Zi 

Z2 


i?2 = 

LOSS 


/ I - Z2 
Zx 

= 20 log 1 1 Zx 



/¥^) 



EXAMPLE 

1ST IMPEDANCE 

? 

300 

2ND IMPEDANCE 

? 

75 

COMPONENTS OF THE L-PAD 

RESISTOR 1 = 259.807 

RESISTOR 2 = 86.6025 

LOSS IN DECIBEi:^ = 11.4389 

TYPE 1 TO CONTINUE, TO STOP 

? 


*END 
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L-PAD MINIMUM LOSS SYSTEM 



f START j 



(PROMPT + INPUT^ 
"IMPEDANCES" J 



CALCULATE 

COMPONENTS 
OF 

JT AND T SYS. 



PRINT \ 

"COMPONENTS" J 






OUTPUT 
ESiSTOR VALUES 



D 



OUTPUT 
LOSS IN DECIBELS 



D 



/'PROMPT + INPUT^ 
fcONTINUE COMMAND 




YES 
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L-PAD MINUMUM LOSS SYSTEM 

10 REM TfflS PROGRAM COMPUTES THE VALUES OF 

20 REM THE TWO RESISTANCES REQUIRED TO CON- 
STRUCT A 

30 REM L-PAD OF MINIMUM LOSS 

40 PRINT "1ST IMPEDANCE" 

50 INPUT Zl 

60 PRINT "2ND IMPEDANCE" 

70 INPUT Z2 

80 LET Rl = Z1*SQR(1 - (Z2/Z1)) 

90 LET R2 = Z2/SQR(1 - (Z2/Z1)) 

100 LET M = SQR(Z1/Z2) -I- SQR((Z1/Z2) - 1) 

110 LET L = 20'*(LOG(M)/LOG(10)) 

120 PRINT "COT^ONENTS OF THE L-PAD" 

130 PRINT "RESISTOR 1 = ";R1 

140 PRINT "RESISTOR 2 = ";R2 

150 PRINT "LOSS IN DECIBELS = ";L 

160 PRINT 

170 PRINT "TYI'E 1 TO CONTINUE, TO STOP" 

180 INPUT X 

190 IF X = 1 TEEN 210 

200 STOP 

210 PRINT 
220 GOTO 40 
230 END 
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LINEAR INTERPOLATION 

K Y is a function of X, and Yi - Ya are the values of tlie function at 
Xi - X2, respectively, Y may be computed for any value of X. 

FORMULA 

LINEAR INTEPOLATION 

f(x) 

*^"'' ^ f(pc) S (X2 - X) m^)Mx - XX )(f(Xj)) 

Xi- X\ 




Xi X X2 

EXAMPLE 

KNOWN VALUE OF X (X1,X2) = 
? 

10,50 

KNOWN VALUES OF Y (F(X1),F(X2)) = 

? 

15 55 

INTERPOLATE F(X) AT X = 

? 

60 

INTERPOLATED F(X) = 65 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

KNOWN VALUE OF X (X1,X2) = 
? 

43,98 

KNOWN VALUES OF Y (F(X1), F(X2)) = 

86,196 

INTERPOLATE F(X) AT X = 

? 

1234 

INTERPOLATED F(X) = 2468 

TYPE 1 TO CONTINUE, TO STOP 

? 


♦END 
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LINEAR INTERPOLATION 



Q 




ROMPT + INPUT 
KNOWN VALUES 



) 



(PROMPT + INPUT^ 
5_ J 



CALCULATE 
F(x) 



C 



OUTPUT 
F(x) 



teor 



) 



'ROMPT + INPUT 

(CONTINUE command: 



^ 

y 



1 1 
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LINEAR INTERPOLATION 

10 REM THIS PROGRAM COMPUTES LINEAR INTER- 
POLATION 

20 PRINT "KNOWN VALUE OF X (X1,X2) = " ; 

30 INPUT X1,X2 

40 PRINT "KNOWN VALUES OF Y (F(X1),F(X2)) = ": 

50 INPUT Y1,Y2 

60 PRINT "INTERPOLATE F(X) AT X - "; 

70 INPUT X 

80 LET G = ((X2 - X)*Y1) + ((X - X1)*Y2) 

90 LETF=G/(X2-X1) 

100 PRINT "INTERPOLATED F(X) = ":F 

110 PRINT 

120 PRINT "TYPE 1 TO CONTINUE, TO STOP 

130 INPUT L 

140 IF L = 1 THEN 160 

150 STOP 

160 PRINT 

170 GOTO 20 

180 END 
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LOQARITHMS OF ANY BASE 

This simple program allows the user to compute the value of a 
logarithm to any base. The number X and the base Y must both be 
positive if machine error is not to occur. 

FORMULA 

In X 



logyX = 



Iny 



EXAMPLES 

BASE = 

7 

16 

X = 
? 

54 

LOG 54 = 1.43872 

TYPE 1 TO C0NT];NUE, TO STOP 

? 

1 

BASE = 
? 

567 
X = 
? 

23 

LOG 23 = .494529 

TYPE 1 TO CONTINUE, TO STOP 

? 


*END 



124 



LOGARITHMS OF ANY BASE 



C 




<E- 



PROMPT + INPUT 
BASE 



C 



) 



PROMPT + INPUT 
X 



) 



CALCULATE 
LOGY'' 



OUTPUT 
LOG 



q 



O 



PROMPT + INPUT 
CONTINUE COMMAND, 



^1 

y 



ji 




125 



LOGARITHMS OF ANY »ASE 

10 REM TfflS PROGRAM WILL COMPUTE THE LOG 

20 REM OF Am POSITIVE NUMBER X, TO ANY POSI- 
TIVE 

30 REM BASE Y 

40 PRINT "BASE = " 

50 INPUT Y 

60 PRINT "X = " 

70 INPUT X 

80 LETJ = LOG(X)/LOG(Y) 

90 PRINT "LOG";X;" = ";J 

100 PRINT "TYPE 1 TO CONTINUE, TO STOF' 

110 INPUT L 

120 IF L = 1 THEN 140 

130 STOP 

140 PRINT 

150 GOTO 40 

160 END 
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MEAN, STANDARD DEVIATION, 
STANDARD ERROR FOR GROUPED DATA 

This program generates the mean, standard deviation and standard 
error for grouped data until the user enters a for the value of the 
frequency. 



FORMULAE 



Mean x = 

S 

Standard error Sx = 

/2j 



V if i xi' - ( Xfi) t' 
Standard deviation S = — 



2/-i 



EXAMPLE 

ENTER SAMPLE VALUE AND FREQUENCY 
? 

5,2 

ENTER SAMPLE VALUE AND FREQUENCY 
? 

10,3 

ENTER SAMPLE VALUE AND FREQUENCY 
? 

6,1 

ENTER SAMPLE VALUE AND FREQUENCY 
? 

0,0 

NUMBER OF SAMPLES ENTERED = 3 

MEAN = 7.67 

STANDARD DEVIATION = 5.77 

STANDARD ERROR = 2.36 

TYPE 1 TO CONTINUE, TO STOP 
? 


♦END 



i2/ 



MEAN, STANDARD DEVIATION, AND 
STANDARD ERROR FOR GROUPED DATA 




/'PROMPT + INPUTS 
fcONTlNUE command) 




128 



MEAN, STANDARD DEVIATION, AND 
STANDARD ERROR FOR GROUPED DATA 

10 REM THIS PROGRAM COMPUTES THE MEAN, 

STANDARD 

20 REM DEVIATION AND STANDARD ERROR FOR 

GROUPED DATA 

30 LET A = 

40 LET B = 

50 LET C = 

60 LET D = 

70 PRINT "ENTERSAMPLE VALUE AND FREQUENCY"; 

80 INPUT X,F 

90 IF F < = THEN 170 

100 LET A = A + 1 

110 LET B = B + F 

120 LET G = X*F 

130 LET C = C + G 

140 LET E = (Xf 2)*F 

150 LET D = D + E 

160 GOTO 70 

170 LET H = C/B 

180 LET I = SQR(D - (B*(Hf 2))) 

190 LETJ = I/SQR(B) 

200 PRINT 

210 PRINT "NUMBER OF SAMPLES ENTERED = ";A 

220 PRINT "MEAN = ";H 

230 PRINT "STANDARD DEVIATION = ";I 

240 PRINT "STANDARD ERROR = ";J 

250 PRINT 

260 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

270 INPUT L 

280 IF L = 1 THEN 300 

290 STOP 

300 PRINT 

310 GOTO 30 

320 END 
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MOMENTS. SKEWNESS AND KURTOSIS 

This program computes the first four moments where the first 
moment is the mean of the distribution and the second moment is the 
variance. Skewness is the departure of a firequency distribution firom 
symmetry, and kurtosis is a property of distribution that expresses 
its relative peakedness. 



FORMULAE 

n 

Xi 



ISTM = — = ^ 2 



n ,• _ 



1=1 



n "^ ' 
4™M = M4 = 4-2 *.' - 4-~2 x.^ + |-~' 2 a:.^ - 35 



n 

Ms 
SKEWNESS = r 1 = — -- 

Ma 
KURTOSIS 7 2== 

M2== 

EXAMPLE 

NUMBER OF SAl/IPLES = 
? 

5 
SAMPLE = 

12 
SAMPLE = 

3 

SAMPLE = 
? 

4 
130 



SAMPLE = 

? 

5 

SAMPLE = 
? 

4 

1ST MOMENT = 5.6 

2ND MOMENT = 10.64 

3RD MOMENT = 47.2319 

4TH MOMENT = 347.331 

MOMENT COEFFICIENTS 

SKEWNESS = 1.36089 KURTOSIS = 3.06803 

TYPE 1 TO CONTINUE, TO STOP 
? 


*END 
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MOMENTS, SKEWNESS, AND KURTOSIS 



jBv 




INITIALIZE 
A. B, C,...TO O 



(PROMPT + INPUT \ 
NUMBER OF ) 
SAMPLES J 



-«- 



/'prompt + INPUT^ 
V^ SAMPLES J 



CALCULATE 
A, B, C, D... 




YES 



CALCULATE 

MOMENTS + 

COEFFICIENTS 



(OUTPUT N 
MOMENTS + ) 
COEFFICIENTS J 



{ CONTINUE ^ 
VJVIESSAGE + INPUTy 
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MOMENTS, SKEWNESS, AND KURTOSIS 

10 REM TfflS PROGRAM COMPUTES THE VALUES OF 
THE 

20 REM FIRST 4 MOMENTS, SKEWNESS AND KUR- 
TOSIS 

30 LET A = 

40 LET B = 

50 LET C = 

60 LET D = 

70 PRINT "NUMBER OF SAMPLES = " 

80 INPUT N 

90 FOR I = 1 TO N 

100 PRINT "SAMPLE = " 

110 INPUT X 

120 LET A = A + X 

130 LET B = B + (Xt2) 

140 LET C = C + (Xt3) 

150 LET D = D + (Xt4; 

160 NEXT I 

170 LETJ = A/N 

180 LET E = (B/N) - Qn) 

190 LET F = (C/N) - ((3*J*B)/N) + (2*Qn)) 

200 LET G = (D/N) - ((4*J*C)/N) 

210 LET H = G + ((6*0t2)*B)/N) - (3*(^4)) 

220 LET K = F/(E'r(3/2)) 

230 LET L = H/(Et2) 

240 PRINT "1ST MOMENT = ";J 

250 PRINT "2ND MOMENT = ";E 

260 PRINT "3RD MOMENT = ";F 

270 PRINT "4TH MOMENT = ";H 

280 PRINT "MOMENT COEFFICIENTS" 

290 PRINT "SKEWNESS = ";K, "KURTOSIS = ";L 

300 pjyj^<************«*****#***» 

310 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

320 INPUT Z 

330 IF Z = 1 THEN 350 

340 STOP 

350 PRINT 

360 GOTO 30 

370 END 
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NO REPETITIONS PROBABILITY 

The user dictates the size of a population to be determined for a "No 
Repetitions" probability. 




Mj[^ MJ""\ M J 



where M 3= N^ 1 



EXAMPLE 

TOTAL POPULATION 
? 

56 

SIZE OF SAMPLE 

? 

2 

PROBABILITY =.982143 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

TOTAL POPULATION 

? 

9 

SIZE OF SAMPLE 

? 

4 

PROBABILITY =.460905 

TYPE 1 TO CONTINUE, TO STOP 

? 


*END 
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NO REPETITIONS PROBABILITY 




( PROMPT + INPUT^N 
yrOTAL POPULATION/ 



/ PROMPT + INPUT^ 
V ^SIZE OF SAMPLER 



i 



CALCULATE 
PROBABILITY 




YES 



( OUTPUT ^ 
V^ PROBABILITY J 
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NO-REPETITIONS PROBABILITY 

10 REM THIS PROGRAM COMPUTES THE "NO REP- 
ETITIONS" 

20 REM PROBABILITY OF A SAMPLE 

^0 PRINT "****************************" 

35 PRINT "TOTAL POPULATION" 

40 INPUT M 

50 PRINT "SIZE OF SAMPLE" 

60 INPUT N 

70 LETJ = 1 

80 FOR I = 1 TO N - 1 

90 LET K = 1 - (I/M) 

100 LETJ=J*K 

110 NEXT I 

120 PRINT "PROBABILITY = ";J 

130 PRINT 

140 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

150 INPUT L 

160 IF L = 1 THEN 30 

170 STOP 

180 END 



136 



NUMBER GUESS GAME 

The object of this game is to guess in as few tries as possible the 
number chosen at random by the computer. (Hint: Use a binary 
search pattern.) 

EXAMPLE 

A RANDOM NUMBER HAS BEEN PICKED 

TRY GUESSING IT, HINT THE NUMBER 

IS FROM 1 TO 100 

GOOD LUCK!!! 

YOUR GUESS IS = 
? 

50 

TOO HIGH, TRY AGAIN 

YOUR GUESS IS = 
? 

25 

TOO HIGH, TRY AGAIN 

YOUR GUESS IS = 

? 

12 

TOO LOW, TRY AGAIN 

YOUR GUESS IS = 
? 

18 

TOO LOW, TRY AGAIN 

YOUR GUESS IS = 

20 

NOT BAD!!!-YOU GOT IT!!! 

YOUR NUMBER OF TRIES WERE 5 

IF YOU WANT TO TRY AGAIN TYPE 1 

IF NOT TYPE 

p 


♦END 
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NUMBER GUESS GAME 




Q 



PRINT ^ 

WINNING MESSAGE/ 




NUMBER GUESS GAME 

10 REM THE COMPUTER CHOOSES A NUMBER FROM 

20 REM 1 TO 100 AT RANDOM. THE OBJECT OF 

30 REM THE GAME IS TO GUESS THE CHOSEN 

40 REM NmiBER IN AS FEW GUESSES AS POSSIBLE 

50 LET R = 1 + INT(100*RND) 

60 LET Y = 

70 PRINT "A RANDOM NUMBER HAS BEEN PICKED" 

80 PRINT "TRY GUESSING IT, HINT THE NUMBER" 

90 PRINT "IS FROM 1 TO 100 " 

100 PRINT "GOOD LUCK!!!" 

110 PRINT 

120 PRINT "YOUR GUESS IS = "; 

130 INPUT X 
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140 LET Y = Y + 1 

150 IF X = R THEN 180 

160 IF X > R THEN 280 

170 GOTO 300 

180 PRINT "NOT BAD!!!-YOU GOT IT!!!" 

190 PRINT "YOUR NUMBER OF TRIES WERE";Y 

200 PRINT 

210 PRINT "IF YOU WANT TO TRY AGAIN, TYPE 1" 

220 PRINT "IF NOT TYPE 0" 

230 INPUT L 

240 IF L = 1 THEN 260 

250 STOP 

260 PRINT 

270 GOTO 50 

280 PRINT "TOO HIGH. TRY AGAIN" 

290 GOTO 120 

300 PRINT "TOO LOW. TRY AGAIN" 

310 GOTO 120 

320 END 
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ONE-ARM BANDIT 

This computer progi'am simulates the one-arm bandits that use 
three mechanical wheels. For detailed instructions, type yes to the 
instruction question in the program. 



EXAMPLE 

RUN 

ARE INSTRUCTIONS REQUIRED 

TYPE EITHER YES OR NO 

J 

NO 

CHERRY CHERRY CHERRY 

YOUR TOTAL EARNINGS ARE NOW $89 

TO CONTINUE TY^PE Y, IF NOT TYPE N 

? 

N 

ONE-ARM BANDIT SAYS GOOD-BYE 

■*END 



ONE-ARM 8AMI»T 




OUTPUT 
INSTBUCTIONS 



) 



I 1*111 



RANDOM 

NWOEfl 

SUgBOUTWe 



SPIN THE 
WHEELS 



NAME THE 

WHEELS 

SUBBOUTOS 



TOTAL UP 

THE 
SCORE 




■/stop j 
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ONE-ARM BANDIT 

10 REM THIS PROGRAM SIMULATES THE MECHANI- 
CAL 

20 REM THREE WHEEL ONE-ARM BANDIT 

30 PRINT "ARE INSTRUCTIONS REQUIRED" 

40 PRINT "TYPE EITHER YES OR NO" 

50 INPUT L$ 

60 IF L$ = "YES" THEN 100 

70 IF L$ = "NO" THEN 170 

80 PRINT "INVALID COMMAND" 

90 GOTO 30 

100 PRINT "SCORING IS SIMPLE; 3 ORANGES, LEM- 
ONS OR" 
110 PRINT "BANANAS EARN $10. 3 CHERRIES EARN 

$90." 
120 PRINT "IF THE FIRST FRUIT IS AN APPLE YOU EARN 

$2" 
130 PRINT "IF THE 1ST AND 2ND ARE APPLES YOU 

EARN $3" 
140 PRINT "IF THE LAST FRUIT IS A CHERRY AND THE" 
150 PRINT "OTHER TWO ARE THE SAME BUT NOT AP- 
PLES YOU" 
160 PRINT "EARN $10. EACH TURN COSTS $1. GOOD- 
LUCK" 
170 LETJ = 
180 PRINT 
190 GOSUB 590 - 
200 LET SI = S 
210 GOSUB 590 
220 LET S2 = S 
230 GOSUB 590 
240 LET S3 = S 
250 LET S = SI 
260 GOSUB 610 
270 LET Sl$ = S$ 
280 LET S = S2 
290 GOSUB 610 
300 LET S2$ = S$ 
310 LET S = S3 
320 GOSUB 610 
330 LET S3$ = S$ 
340 IF Sl$ = "CHERRY" THEN 380 
350 IF Sl$ = "APPLE" THEN 420 
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360 


IF Sl$ = S2$ THEN 440 


370 


GOTO 460 


380 


IF Sl$ = S2$ THEN 400 


390 


GOTO 460 


400 


IF S2$ = S3$ THEN 480 


410 


GOTO 460 


420 


IF Sl$ = S2$ THEN 500 


430 


GOTO 520 


440 


IS S2$ = S3$ THEN 540 


450 


IF S3$ = "CHERRY" THEN 540 


460 


LET J = J - 1 


470 


GOTO 550 


480 


LET J = J + 89 


490 


GOTO 550 


500 


LETJ=J + 2 


510 


GOTO 550 


520 


LETJ=J + 1 


530 


GOTO 550 


540 


LETJ=J + 9 


550 


PRINT 


560 


PRINT Sl$;" ";S2$;" ";S3$ 


570 


PRINT "YOUR TOTAL EARNINGS ARE NOW $";J 


580 


GOTO 720 


590 


LET S = 1 + INT(5*RND) 


600 


RETURN 


610 


ON S GOTO 620, 640, 660, 680, 700 


620 


LET S$ = "CHERRY" 


630 


GOTO 710 


640 


LET 8$ = ■• APPLE" 


650 


GOTO 710 


660 


LET S$ = "LEMON" 


670 


GOTO 710 


680 


LET S$ = "ORANGE" 


690 


GOTO 710 


700 


LET S$ = "BANANA" 


710 


RETURN 


720 


PRINT 


730 


PRINT "TO CONTINUE TYPE Y, IF NOT TYPE N" 


740 


INPUT Z$ 


750 


IF Z$ = "Y" THEN 780 


760 


PRINT "ONE-ARM BANDIT SAYS GOOD-BYE" 


770 


STOP 


780 


PRINT 


790 


GOTO 190 


800 


END 
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PERMUTATIONS AND COMBINATIONS 

This program computes permutations and combinations, where A^ is 
the number of items available and R is the size of the groups under 
consideration. 



FORMULAE 



N! W 
p= C= 



(N - R)! R!(N- R)! 

EXAMPLE 
ENTER N,R 

12,5 

PERMUTATIONS = 95040 

COMBINATIONS = 792 

TYPE 1 TO CONTINUE, TO STOP 

1 

ENTER N,R 

? 

23,21 

PERMUTATIONS = 1.2926E22 

COMBINATIONS = 253 

TYPE 1 TO CONTINUE, TO STOP 

? 


*END 
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PERMUTATIONS AND COMBINATIONS 



/'prompt + inputN 




CALCULATE 
PERMUTATIONS 



CALCULATE 
COMBINA" IONS 



-»— { 



PRINT RESULT 



KPROMPT+ INPUfN 
CONTINUE 1 ' 
. COMMAND _J 



PERMUTATIONS AND COMBINATIONS 

10 REM THIS PROGRAM COMPUTES PERMUTATIONS 

20 REM AND COMBINATIONS, WHERE N = NUMBER 
OF 

30 REM ITEIVIS AND R = SIZE OF GROUP SELECTED 

40 PRINT "ENTER N,R"; 

50 INPUT N.R 

60 IFN<R THEN 270 

70 IFR<0 THEN 290 

80 LET T = N 

90 GOSUB 310 

100 LET A = T 

110 LET T = N - R 

120 GOSUB 310 

130 LET B = T 

140 LET P = .Al/B 

150 LET T = R 
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160 GOSUB 310 

170 LET C = A/(T*B) 

180 PRINT "PERMUTATIONS = ";P 

190 PRINT "COMBINATIONS = ";C 

200 PRINT 

210 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

220 INPUT L 

230 IF L = 1 THEN 250 

240 STOP 

250 PRINT 

260 GOTO 40 

270 PRINT "N < R,INVALID INPUT" 

280 GOTO 40 

290 PRINT "R < 0, INVALID INPUT" 

300 GOTO 40 

310 IF T = THEN 390 

320 IF T = 1 THEN 390 

330 LETJ = 1 

340 FOR I = 2 TO T 

350 LETJ=J*I 

360 NEXT I 

370 LET T = J 

380 GOTO 400 

390 LET T = 1 

400 RETURN 

410 END 
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PI-NETWORK IMPEDANCE MATCHING 

Often between two resistive impedanced Zi and Z2 a lossless net- 
work is desired. The computer expects the following information: 
Zi - Z2, desired system Q and the operating frequency. 

FORMULAE 



PI-NETWORK 



L 

o li ^Y"Y■v^ — ^ — — o 



Z1 s 

C1 

O 1» i O 



■Z2 

C2 



Z\ > Z2 , f = frequency and Q is desired system Q 

1 1 X. Z2 
Ci =_ Ci = L = (Q2 + 1) > 1 

and where 




EXAMPLE 

ENTER 1ST IMPEDANCE 
? 

345 

ENTER 2ND IMPEDANCE 

? 

300 

ENTER DESIRED SYSTEM Q 

? 

20 
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ENTER OPERATING FREQUENCY 

500 

COMPONENTS OF PI-NETWORK 
CAPACITOR 1 = 1.84527 E - 5 
CAPACITOR 2 = 1.97846 E - 5 
INDUCTOR = 1.05836 E - 2 

TO CONTINUE TYPE 1, IF NOT 

? 


*END 



1 START 




' 


' 




I 


/^PROMPT + INPUT^ 
V^YSTEM VARIABLES/ 






COMPUTE 
COMPONENTS 
OF NETWORK 








»'ES 


A OUTPUT "\ 
\COMPONENT-VALUESi 






/^PROMPT + INPUTS 

( CONTINUE 

V COMMAND y 


<;^ ISX 


k^. 


{ ST 


J NO 

PI-NETW 
OP 1 


ORK IMPEDANCE MATCHING 
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PI-NETWORK IMPEDANCE MATCHIN& 

10 REM THIS PROGRAM COMPUTES THE COMPO- 
NENTS 

20 REM OF A PI-NETWORK. TO MATCH TWO 

30 REM IMPEDANCES 

40 PRINT "ENTER 1ST IMPEDANCE" 

50 INPUT Zl 

60 PRINT "ENTER 2ND IMPEDANCE" 

70 INPUT Z2 

80 PRINT "ENTER DESIRED SYSTEM Q" 

90 INPUT Q 

100 PRINT "ENTER OPERATING FREQUENCY" 

110 INPUT A 

120 LET A = Zl/Q 

130 LET C = ((Z2/Zl)*((Qt2) -t- 1)) - 1 

140 LET B = Z2/SQR(C) 

150 LET E = (Z2/(Q*B)) + 1 

160 LET D = E*((Q*Zl)/((Qt2) -I- 1)) 

170 LET P = 6.28319 

180 LET CI = 1/(P*F*A) 

190 LET C2 = 1/(P*F*B) 

200 LET L = D/(P*F) 

210 PRINT "COMPONENTS OF PI-NETWORK" 

220 PRINT "C/kPACITOR 1 = ";C1 

230 PRINT "C/kPACITOR 2 = ";C2 

240 PRINT "INDUCTOR = ";L 

250 PRINT 

260 PRINT " TO CONTINUE TYPE 1, IF NOT 0" 

270 INPUT X 

280 IF X = 1 THEN 300 

290 STOP 

300 PRINT 

310 GOTO 40 

320 END 
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POINTS ON THE CIRCUMFERENCE 

This program computes N equally spaced points on the circumfer- 
ence of a circle. Given radius and center of the drcle, this program 
computes the rectangular coordinates of equally spaced points Xi.Yi. 

FORMULAE 



y 




Xi + i =Xo+RCosie + ZI) 
Xn. yn Fi + 1 = Fo + i? SiniQ + ZI) 

where Z=2tt /N 



^i^X 

0,0 
POINTS ON A CIRCUMFERENCE 

EXAMPLE 

CENTER OF CIRCLE(XO,YO) = 
? 

2 2 

ANGLE m DEGREES OF FIRST POINT 

90 

NUMBER OF POINTS DESIRED = 
p 

2 

RADIUS OF CIRCLE = 

? 

1 

COORDINATES 
P0INT1X=3Y = 2 
POINT 2 X = 2 Y= 1 
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POINTS ON THE CIRCUMFERENCE 




/'prompt + INPUT ^ 
\^ CIRCLE CENTER y 



/^PROMPT + INPUT'N 
VANGLE of 1st POINJ/ 



/promft + inputN 
v # of points j 



c 



prompt + input 
circle radius 



) 



f print \ 
I coordinates J 



-^»— 4 



compute 
coordinates 




/^prompt + input \ 
( continue 1 
V command J 
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POINTS ON THE CIRCUMFERENCE 

10 REM THIS PROGRAM COMPUTES N EQUALLY 
SPACED 

20 REM POINTS ON THE CIRCUMFERENCE OF A 
CIRCLE 

30 PRINT "CENTER OF CIRCLE (XO.YO) = "; 

40 INPUT XO.YO 

50 PRINT "ANGLE IN DEGREES OF 1ST POINT = ' ; 

60 INPUT W 

70 LET W = (W*3. 14159)7180 

80 PRINT "NUMBER OF POINTS DESIRED = "; 

90 INPUT N 

100 PRINT "RADIUS OF A CIRCLE = "; 

110 INPUT R 

120 LET Z = 6.28319/N 

130 PRINT 

140 PRINT "COORDINATES" 

150 FOR I = TO N - 1 

160 LET X = XO + (R*COS(W + 2*1))) 

170 LET Y = YO + (R*SIN(W + (Z*I))) 

180 LET P = 1 + 1 

190 PRINT "POINT;";P,"X = ";X,"Y = ";Y 

200 NEXT I 

210 PRINT 

220 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

230 INPUT L 

240 IF L = 1 THEN 260 

250 STOP 

260 PRINT 

270 GOTO 30 

280 END 
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POLAR TO RECTANGULAR CONVERSION 

This program converts given polar coordinates into rectangular 
cofflrdinates. 

FORMULAE 
POLAR TO RECTANGULAR 



-®i>7X 



/ 



X=RCose 



/X 

/ C|) 

/ 



/ Y = RSin& 



/ 



i_ 



EXAMPLE 

POLAR COORDINATES 

ANGLE W IN DEGREES = 

? 

45 

MAGNITUDE R == 

? 

5 

RECTANGULAR COORDINATES 

X = 3.53553 Y = 3.53553 

TYPE 1 TO CONTINUE, TO STOP 

? 

POLAR COORDmATES 
ANGLE W IN DEGREES = 

? 

20 

MAGNITUDE R == 

? 

1 

RECTANGULAR COORDINATES 

X = .939693 Y = .34202 

TYPE 1 TO CONTINUE, STOP 

? 


*END 
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POLAR TO RECTANGUUR CONVERSION 







(PRINT N 

POUR ) 

COORDINATES J 



/prompt + input"N 

\ ^ ANGLE J 



c 



prompt + INPUT 
MAGNITUDE 



) 



COMPUTE 
P^R 



/■ PRINT \ 

\RECT. COORDINATES; 



(OUTPUT \ 
__xy__j 



(PROMPT + INPUT >v 
CONTINUE ) 

COMMAND y 




YES 
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POLAR TO RECTANGULAR CONVERSION 

10 REM THIS PROGRAM CONVERTS GIVEN POLAR 
COORDINATES 

20 REM INTO RECTANGULAR COORDINATES 

30 PRINT "POLAR COORDINATES" 

40 PRINT "ANGLE W IN DEGREES = "; 

50 INPUT W 

60 LET W = (W*3.14159)/180 

70 PRINT "Mi5.GNITUDE R = "; 

80 INPUT R 

90 LET X = R*COS(W) 

100 LET Y = R*SIN(W) 

110 PRINT "RECTANGULAR COORDINATES" 

120 PRINT "X == ";X,"Y = ";Y 

130 PRINT 

140 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

150 INPUT L 

160 IF L = 1 TlffiN 180 

170 STOP 

180 PRINT 

190 GOTO 30 

200 END 
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PRIME TEST 

This program tests a given number to see whether or not it is prime. 
If so, it is thus indicated and if not, the smallest factor returned. The 
program will continue to cycle until a zero is entered as a test 
number. 

EXAMPLES 

ENTER THE TEST NUMBER,ZERO TO STOP 

? 

45 

45 IS NOT A PRIME 3 IS THE SMALLEST FACTOR 

ENTER THE TEST NUMBER,ZERO TO STOP 
? 

120078 

120078 IS NOT A PRIME 2 IS THE SMALLEST FACTOR 

ENTER THE TEST NUMBER.ZERO TO STOP 

p 

121 

121 IS NOT A PRIME 11 IS THE SMALLEST FACTOR 

ENTER THE TEST NUMBER,ZERO TO STOP 
p 

179 

179 IS A PRIME 

ENTER THE TEST NUMBER,ZERO TO STOP 

? 



GOOD-BYE FROM THE PRIME TESTER 

♦END 
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PRIME TESTER 

10 REMTHIS PROGRAMTESTSIF ANUMBERIS PRIME 
20 REM IT CONTINUES TO CYCLE UNTIL ZERO IS EN- 
TERED 
30 PRINT "ENTER THE TEST NUMBER, ZERO TO 
STOP" 
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40 


INPUT N 


50 


LET N = INPUT (N) 


60 


IF N = THEN 220 


70 


IF N < 4 THEN 180 


80 


LET I = 


90 


LET T = 2 


100 


LETJ = INT(N/T) 


110 


LET K = J*T 


120 


IF N = K THEN 200 


130 


LET I = 1 + 1 


140 


LET L = T*T 


150 


IF L > N THEN 180 


160 


LET T = (1*2) + 1 


170 


GOTO 100 


180 


PRINT N; "IS A PRIME" 


190 


GOTO 30 


200 


PRINT N; "IS NOT A PRIME";T;"IS THE SMALLEST 




FACTOR" 


210 


GOTO 30 


220 


PRINT "GOOD-BYE FROM THE PRIME TESTER" 


230 


END 
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QUADRATIC EflUATIONS 

This program solves for;e in a quadratic equation where a, ft and c are 
^ven. Both real and complex roots are found. 

FORMULAE 

ax^ -^ bx + c = <t> 

- b ±1/ b^ - ^c 

x\, Xl — • 

2fl 

D =(b^- 4ac)/4a^ 

D ^ <t> roots are real D< 4> roots are complex 



b b 

IP ~ — ^ <t> Xi = - — + /IT 
2a 2a 



b b 

IF <^ Xi = - -/d" 

2a 2a 



C 

X2= 



Xia 



D <0 



- b Ha£-¥ 

U +Vi= ± 



2a 2a 



EXAMPLES 

ENTER VALUES FOR A,B AND C 

? 

1,1,0 

ROOTS ARE REAL 
1ST ROOT ^ - 1 
2ND ROOT = 
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TYPE 1 TO CONTINUE, TO STOP 

7 
1 

ENTER VALUES FOR A,B AND C 
? 

10,10,10 

ROOTS ARE COMPLEX 
REAL PART = - 50 
IMAGINARY PART = 86.6025 

TYPE 1 TO CONTINUE, TO STOP 
? 


♦END 



PROMPT + INPUT 
A, B, C 




PRINT 
ROOTS ARE 
COMPLES 



OUTPUT 
REAL-IMAGINARY 



) 



'^PROMPT + INPUT 

CONTINUE 
^ COMMAND 



) 




QUADRATIC EQUATIONS 





' 


YES 






<^IS E > = 0^ 


COMPUTE 2 


NO 






COMPUTE Z 
{- 1^3) 


' 








' 


' 




* 




COMPUTE 
W 





PRINT 
^ ROOTS ARE REAL 




) 
3 



159 



QUADRATIC EQUATliN 

10 REM THIS PROGRAM COMPUTES THE SOLUTION 

TO A 

20 REM QUADRATIC EQUATION 

30 PRINT "ENTER VALUES FOR A, B AND C" 

40 INPUT A,E,,C 

50 LET D = ((Bt2) - (4*A*C))/(4*A'^2) 

60 IF D > = THEN 130 

70 LET X = E;/(2»A) 

80 LET Y = (SQR((4*A*C) - B 2))/(2*A) 

90 PRINT "ROOTS ARE COMPLEX" 

100 PRINT "M:AL part = ";X 

110 PRINT "IM[AGINARY PART = ";Y 

120 GOTO 220 

130 LET E = - B/(2*A) 

140 IF E > = THEN 170 

150 LET Z = E - SQR(D) 

160 GOTO 180 

170 LET Z = E + SQR(D) 

180 LET W = C/(Z*A) 

190 PRINT "ROOTS ARE REAL" 

200 PRINT 1ST ROOT = ";Z 

210 PRINT "2^[D ROOT = ";W 

990 PRINT "***********♦**********♦***" 

230 PRINT "TWE 1 TO CONTINUE, TO STOP" 

240 INPUT L 

250 IF L = 1 THEN 270 

260 STOP 

270 PRINT 

280 GOTO 30 

290 END 
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RECTANGULAR TO POLAR CONVERSION 

This program computes rectangular coordinates that are supplied by 
the user into polar coordinates. 



FORMULAE 



Y 

<f> = TAN- ' R =/jrTW 



EXAMPLES 

X = 

? 

10 

Y = 

? 

10 

POLAR COORDINATES 
ANGLE m DEGREES = 45.0000 
MAGNITUDE = 14.1421 

TYPE 1 TO CONTINUE, TO STOP 

1 
X = 

? 

34 

Y = 

32 

POLAR COORDINATES 
ANGLE IN DEGREES = 43.2643 
MAGNITUDE = 46.6904 

TYPE 1 TO CONTINUE, TO STOP 


*END 
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(PROMPT + iNPUT"\ 
RECTANGULAR ) RECTANGULAR TO POLAR CONVERSION 

COOR. J 



/^PROMPT + INPUT N 
( CONTINUE ) 

V COMMAND y 





LET 
= 90 
R=Y 



LET 
= -90 
R=ABS(Y) 



LET 
O + O 
R + X 



HECTAN6ULAR TO POLAR CONVERSION 

10 REM THIS PROGRAM CONVERTS GIVEN RECTAN- 
GULAR 

20 REM COORDINATES INTO POLAR COORDINATES 

30 PRINT "RECTANGULAR COORDINATES" 

40 PRINT "X = " 

50 INPUT X 

60 PRINT "Y=" 
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70 INPUT Y 

80 IF X + Y = THEN 150 

90 IF X = THEN 180 

100 IF Y = THEN 250 

110 LET W = ATN(Y/X) 

120 LET W = (W*180)/3. 14159 

130 LET R = SQR(Xt2 + Y'r2) 

140 GOTO 310 

150 LET W = 

160 LET R = 

170 GOTO 310 

180 IF Y> THEN 220 

190 LET W = - 90 

200 LET R = ABS(Y) 

210 GOTO 310 

220 LET W = 90 

230 LET R = Y 

240 GOTO 310 

250 X > THEN 290 

260 LET W = 180 

270 LET R = ABS (X) 

280 GOTO 310 

290 LET W = 

300 LET R = X 

310 PRINT "POLAR COORDINATES" 

320 PRINT "ANGLE IN DEGREES = "; W 

330 PRINT "MAGNITUDE = "; R 

340 PRINT "************************" 

350 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

360 INPUT L 

370 IF L = 1 THEN 390 

380 STOP 

390 PRINT 

400 GOTO 40 

410 END 
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RECTANGULAR SECTIONS 

This program computes various parameters: moment of inertia, 
polar moment of inertia, and area of section connected with a rectan- 
gular section. 

FORMULAE 



RECTANGULAR SECTION | 

n 



1 



^<-b-^" 



bh^ 



/=■ 



/ = 



/ and/ is in(in *) 



12 A is in (in^ 
bh(b'' + h^ 



12 



A=bH 



EXAMPLE 

BASE = 

3 
HEIGHT : 



MOMENT OF INERTIA = 31.25 
POLAR MOMENT OF INERTIA = 42.50 
AREA OF SECTION = 15 

TYPE 1 TO CONTINUE, TO STOP 

? 


*END 
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RECTANGULAR SECTIONS 




/prompt + INPUT A 
V^ BASE + HEIGHT J 



COMPUTE 
I, J, A 



C 



OUTPUT 
I, J, A 



3 



(PROMPT + INPUTS 
CONTINUE } 

COMMAND J 
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RECTANGULAR SECTIONS 

10 REM THIS PROGRAM COMPUTES THE VARIOUS 
PARAMETERS 

20 REM CONNECTED WITH A RECTANGULAR SEC- 
TION 

30 PRINT "BASE = "; 

40 INPUT B 

50 PRINT "HEIGHT = " 

60 INPUT H 

70 LET I = (B.*(Ht3))/12 

80 LET J = (B*H*(Bt2 + Ht2))/12 

90 LET A = E.*H 

100 PRINT "MOMENT OF INERTIA = ";I 

110 PRINT "POLAR MOMENT OF INERTIA = ";J 

120 PRINT "AREA OF SECTION = ";A 

130 PRINT 

140 PRINT "TWE 1 TO CONTINUE, TO STOP" 

150 INPUT L 

160 IF L = 1 THEN 180 

170 STOP 

180 PRINT 

190 GOTO 30 

200 END 
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RESISTIVE AHENUATOR DESIGN 

This program computes the required three resistors to form either a 
Pi- or T-type resistive attenuator. This type of attenuator allows the 
user to choose a loss other than that of minimum. 

FORMULAE 




RiN> Ro, andN = desired loss ^ minimum bss 

/ n 

minimum loss =\^bg' 

T-type 




2,/N KihUo 

R3= 



Ri = Rm\ \-R 




(N + V 

R2 = Ro I 1 -i?3 

[N- Ij 
TT-type 

1 ,,, ' iRi^o] "- 
R3= (N- 1) 

2 \n 
1 



„ 1 /N + 1 

Ri= 

Rm 



/N + 1\ 1 
\N- l)~ R3 

1 

ro[n-ij it 
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EXAMPLE 

INPUT RESISTANCE R(IN) = 

500 

OUTPUT RESISTAISTCE R(0) = 

100 

MINIMUM SYSTEM LOSS IN DECIBELS = 12.54 

ENTER DESIRED LOSS IN DECIBELS 

? 

20 

RON) = 500 R(0) = 100 

DESIRED LOSS = 20 

T ATTENUATOR 

RESISTOR 1 = 464.9 

RESISTOR 2 = 56.85 

RESISTOR 3 = 45.17 

PI ATTENUATOR 

RESISTOR 1 = 879.6 

RESISTOR 2 = 107.5 

RESISTOR 3 = 1107 

TYPE 1 TO CONTINUE, TO STOP 


*END 
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RESISTIVE ATTENUATOR DESIGN 







(PROMPT + INPUT^N 
R(IN) + R(0) J 



COMPUTE 

MINIMUM 

LOSS 



f OUTPUT \ 
\^ MINIMUM LOSS J 



/^PROMPT + I NPUt"\ 
\ ^ DESIRED LOSS J 



COMPUTE 
COMPONENTS 



f OUTPUT ^ 

>^___Coss_J 



OUTPUT N 

T-TYPE 1 

COMPONENTS J 



c 



OUTPUT 

TT-TYPE 

COMPONENTS 



) 
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RESISTIVE ATTENUATOR DESIGN 


10 


REM THIS PROGRAM COMPUTES THE COMPO- 




NENTS 


20 


REM REQUIRED FOR A PI OR T TYPE 


30 


REM RESISTIVE ATTENUATOR 


40 


PRINT "INPUT RESISTANCE R(IN) = "; 


50 


INPUT X 


60 


PRINT "OUTPUT RESISTANCE R(0) = "; 


70 


INPUT Y 


80 


LET Z = X/Y 


90 


LET Q = (SQR(Z) + SQR(Z - l))t2 


100 


LET M = 10*(LOG(Q)/LOG(10)) 


110 


PRINT "MINIMUM SYSTEM LOSS IN DECIBELS 

= ";M 
PRINT "ENTER DESIRED LOSS IN DECIBELS"; 


120 


130 


INPUT L 


140 


LET N = 10 (L/10) 


150 


LET W = N - 1 


160 


LET U = N + 1 


170 


LET A = 2*(SQR(X*Y*N)) 


180 


LET B = (X*(U/W)) - A 


190 


LET C = (Y*(U/W)) - A 


200 


LET D = (W*SQR((X*Y)/N))/2 


210 


LET E = 1/((UAV)/X) - (1/D) 


220 


LET F = 1/((U/W)/Y) - (1/D) 


230 


PRINT "mm = ";X,"R(0) = ";Y 


240 


PRINT "DESIRED LOSS = ";L 


250 


PRINT 


260 


PRINT "T ATTENUATOR" 


270 


PRINT "RESISTOR 1 = ";B 


280 


PRINT "RESISTOR 2 = ";C 


290 


PRINT "RJJSISTOR 3 = ";A 


300 


PRINT 


310 


PRINT "PI ATTENUATOR" 


320 


PRINT "RESISTOR 1 = ";E 


330 


PRINT "RESISTOR 2 = ";F- 


340 


PRINT "RESISTOR 3 = ";D 


350 


PRINT 


360 


PRINT "TWE 1 TO CONTINUE, TO STOP" 


370 


INPUT Q 


380 


IF Q = 1 THEN 400 


390 


STOP 


400 


PRINT 


410 


GOTO 40 


420 


END 
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SIMULTANEOUS EQUATIONS IN TWO UNKNOWNS 

The user suppBes the components of two AX + BY = C type equa- 
tions, also gvingthe computer the opportunity to state if the solution 
is impossible. 



FORMULAE 




1 






EB 


AE 


ED-BF 

Y — — 


F D AF -EC 

T^ — — 


CF 


AD-BC 


AB 


AD~BC 


AB 




CD 




CD 



EXAMPLE 

AX + BY = E 

CX + DY = F 

ENTER PARAMETERS, A,B,C,D,E,F 
? 

10,20,45,23,56,78 

SOLUTION X = 9.6 Y = - 2.55 

TYPE 1 TO CONTINUE, TO STOP 
p 

1 

AX + BY = E 

CX + DY = F 

ENTER PARAMETERS A,B,C,D,E,F 

10,10,789,2,2,6 

NO SOLUTION, OR NO UNIQUE SOLUTION EXISTS 

TYPE 1 TO C0NTD4UE, TO STOP 

7 


♦END 
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SIMULTANEOUS EEQUATIONS IN TWO UNKNOWNS 




/ PROMPT + \ 
\mPUT PARAMETER^ 



CALCULATE 
M 




YES 



^> 



CALCULATE 
X AND Y 



c 



1 



OUTPUT 

NO SOLUTION 

MESSAGE 



" 



(^ OUTPUT ^ 
V X AND Y J 



c 



OUTPUT MESSAGE 
CONTINUE INPUT 



D 




"*E- 



3 



YES 



-»• 
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SIMULTANEOUS EQUATIONS IN TWO UNKNOWNS 



10 


REM THIS PROGRAM COMPUTES SIMULTANEOUS 




EQUATIONS 


20 


REM IN TWO UNKNOWNS 


30 


PRINT "AX + BY = E" 


40 


PRINT "CX + DY = F" 


50 


PRINT "ENTER PARAMETERS A3,C,D,E,F" 


60 


INPUT A,B,C,D,E,F 


70 


LET M = (A*D) - (B*C) 


80 


IF M = THEN 140 


90 


LET X = ((E*D) - (B*F))/M 


100 


LET Y = ((A*F) - (E*C))/M 


110 


PRINT "SOLUTION","X = ";X,"Y = ";Y 


120 


PRINT "*********************♦» 


130 


GOTO 160 


140 


PRINT "NO SOLUTION, OR NO UNIQUE SOLUTION 




EXISTS" 


150 


PRINT "***************♦****" 


160 


PRINT "TYPE 1 TO CONTINUE, TO STOP" 


170 


INPUT L 


180 


IF L = 1 THEN 200 


190 


STOP 


200 


PRINT 


210 


GOTO 30 


220 


END 
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SIMULTANEOUS EQUATIONS IN THREE UNKNOWNS 

The computer solves a system of three equations in three unknowns 
with the parameters suppKed by the user. 

EXAMPLE 

SOLVE FOR 3 EQUATIONS IN 3 UNKNOWNS 
OF THE TYPE AX + BY + CZ =D 
ENTER FIRST EQUATION(A,B,C.D) 
? 

1.4,6,3 

ENTER SECOND EQUATION(A,B,C,D) 

— 3 8 — 2 

ENTER THIRD E(JUATION(A,B,C,D) 

4, - 5,2,6 

SOLUTION 

X = 2.65516 Y = .741935 Z = - .435483 

TYPE 1 TO CONTINUE, TO STOP 

? 



*END 
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SIMULTANEOUS EQUATIONS IN THREE UNKNOWNS 



Q 



Q 



I START ) 



PRINT 
PROGRAM HEADER 



5 



PROMPT + INPUT 
THREE EQUATIONS 



D 



COMPUTE 
El - E5 




YES 



C 



PRINT 

WRONG DATA 

MESSAGE 



COMPUTE 
X, Y, Z 



OUTPUT ^ 



c 



3 



PROMPT + INPUT 
CONTINUE 
COMMAND 



) 
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SIMULTANEOUS EQUATIONS IN THREE UNKNOWNS 

10 REM THIS PROGRAM COMPUTES THE SOLUTION 

TO 

20 REM A SYSTEM OF 3 EQUATIONS IN 3 UNKNOWNS 

30 PRINT "SOLVE FOR 3 EQUATIONS IN 3 UNKNOWNS" 

40 PRINT "OF THE TYPE AX + BY + CZ = D" 

50 PRINT "ENTER 1ST EQUATION (A,B,C,D)" 

60 INPUT Al.Bl.Cl.Dl 

70 PRINT "ENTER 2ND EQUATION (A,B,C,D)" 

80 INPUT A2,B2,C2,D2 

90 PRINT "ENTER 3RD EQUATION (A,B,C,D) 

100 INPUT A3,B3,C3,D3 

110 LET El = ((B1*A2)/A1) - B2 

120 LET E2 = ((C1*A2)/A1) - C2 

130 LET E3 = ((B1*A3)/A1) - B3 

140 LET E4 = ((C1*A3)/A1) - C3 

150 LET E5 = ((E1*E4) - (E2*E3)) 

160 IF E5 = THEN 250 

170 LET E6 = ((D1*A2)/A1) - D2 

180 LET E7 = ((D1*A3)/A1) - D3 

190 LET Y = ((E6*E4) - (E2*E7))/E5 

200 LET Z = ((E1*E7) - (E6*E3))/E5 

210 LET X = (Dl/Al) - ((B1/A1*Y) - ((C1/A1)*Z) 

220 PRINT "SOLUTION" 

230 PRINT "X = ";X,"Y = ";Y,"Z = ";Z 

240 GOTO 260 

250 PRINT "E^SUFFICIENT OR ERRONEOUS DATA EN- 
TERED" 

260 PRINT 

270 PRINT "TITE 1 TO CONTINUE, TO STOP" 

280 INPUT L 

290 IF L = 1 THEN 310 

300 STOP 

310 PRINT 

320 GOTO 30 

330 END 
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SPACE WARS (1) 

The game of Space Wars, as simulated by this program, is a battle 
between two ships, one the enemy, the other the player. The player 
has the following options: rotate the ship, move the ship, fire the 
laser cannon, fire the laser, or self-destruct. The object of this game 
is to destroy the enemy. The enemy, also being armed with a laser 
cannon and a laser, fires on you, so be careful. 

EXAMPLE 

RUN 

ARE INSTRUCTIONS REQUIRED? TYPE EITHER 

YES OR NO 

YES 

THERE ARE 5 EXECUTIVE COMMANDS; TURN THE 

SmPd), M0VE(2), FIRE LASER CANN0N(3), 

FIRE LASER(4) AND SELF-DESTRUCT(5) 

THE CANNON MUST BE FIRED WITHIN 10 DEGREES 

OF 90 TO BE EFFECTIVE. NEGATIVE DEG TURNS TO- 
WARDS 

AND POSITIVE DEG TOWARDS 180. ENTERING NEGATIVE 
KM 

MOVES YOU TOWARDS THE ENEMY, WHILE POSITIVE 
MOVES 

YOU AWAY. LASER EFFECTIVENESS IS RANDOM, DUE TO 

SHIELDING, DISTANCE AND INTERSTELLAR DEBRIS 

MAY THE FORCE BE WITH YOU 

DISTANCE TO ENEMY 3.7 EO 3KM 

BEARING IS 87 DEGREES 

THE SKY FIGHTER HAS FIRED HIS LASER 

YOUR TOTAL ENERGY IS NOW 9.75E03 UNITS 

THE ENEMY HAS 9.5E03 UNITS OF ENERGY LETS 

WHICH COMMAND DO YOU WISH TO EXECUTE 

? 

2 

HOW MANY KM TO TRANSVERSE 

? 

- 3.3E03 

DISTANCE TO ENEMY 400KM 

BEARING IS 87 DEGREES 

THE SKY FIGHTER HAS FIRED HIS LASER 
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YOUR TOTAL ENERGY IS NOW 9.32E03 UNITS 
THE ENEMY HAS 9.0E03 UNITS OF ENERGY LEFT 
WHICH COMMAND DO YOU WISH TO EXECUTE 

5 

YOU HAVE INSTRUCTED THE ON-BOARD COMPUTER 

TO SELF-DESTRUCT, THE REACTOR HAS GONE 

CRITICAL, YOU HAVE GONE TO MEET THE FORCE 

YOUR DESTRUCTION HAS ALSO DESTROYED 

THE SKY FIGHTEl?, YOU WILL BE REMEMBERED 

AS A HERO 

SPACE WARS IS OVER 

TO PLAY SPACE V/ARS AGAIN TYPE GO, 

OTHERWISE TYPE NO 

NO 

SPACE WARS SAYS GOOD-BYE 

*END 
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SPACE WARS (1) 



YES ( OUTPUT 

INSTRUCTIONS , 




YES 



YES 



SELF 
DESTRUCT 



TURN THE 
SHIP 



MOVE THE 
SHIP 



FIRE LASER 
CANNON 



FIRE LASER 
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SPACE WARS (1) 

10 REM THIS PROGRAM IS THE GAME OF SPACE 

WARS 
20 REM TWO SHIPS BATTLE, YOU MUST DESTROY 

THE 
30 REM ENEIMY TO SAVE THE REPUBLIC 
40 RANDOMIZE 
50 PRINT "AliE INSTRUCTIONS REQUIRED? TYPE 

EITHER" 
60 PRINT "YES OR NO" 
70 INPUT A$ 
80 IF A$ = "TOS" THEN 120 
90 IF A$ = "NO" THEN 250 
100 PRINT "INVALID RESPONSE" 
110 GOTO 50 
120 PRINT 
130 PRINT "THERE ARE 5 EXECUTIVE COMMANDS; 

TURN THE" 
140 PRINT "SHIP(l), M0VE(2), FIRE LASER CANN0N(3)," 
150 PRINT "FIRE LASER(4) AND SELF-DESTRUCT(5)" 
160 PRINT "THE CANNON MUST BE FIRED WITHIN 10 

DEGREES" 
170 PRINT "OF 90 TO BE EFFECTIVE. NEGATIVE DEG 

TURNS TOWARDS" 
180 PRINT "0 AND POSITIVE DEG TOWARDS 180. EN- 
TERING NEGATIVE KM" 
190 PRINT "MOVES YOU TOWARDS THE ENEMY, WHILE 

POSITn^ MOVES" 
200 PRINT "YOU AWAY. LASER EFFECTIVENESS IS 

RANDOM, DUE TO" 
210 PRINT "SHIELDING, DISTANCE AND INTERSTEL- 
LAR DEBRIS" 
220 PRINT 

230 PRINT "**************GOOD-LUCK*****************" 
240 PRINT "IV.[AY THE FORCE BE WITH YOU" 
250 LET El = 1E04 
260 LET E2 = El 
270 LET D = 1E03 + INT(5E05*RND) 
280 LET B = I -H INT(180*RND) 
290 GOSUB 34:0 
300 GOSUB 390 
310 LET El = El - Dl 
320 GOSUB 500 

180 



330 


GOTO 690 


340 


IF D > = 1E05 THEN 370 


350 


LET L = 1 


360 


GOTO 380 


370 


LET L = 


380 


RETURN 


390 


IF L = THEN 440 


400 


LET H2 = (1 + INT(100*RND))/100 


410 


LET Dl = 500*H2 


420 


LET E2 = E2 - 500 


430 


GOTO 490 


440 


LET Ml = 1 + INT(2*RND) 


450 


IF Ml = 1 THEN 470 


455 


LET Dl = 1000 


460 


GOTO 480 


470 


LET Dl = 


480 


LET E2 = E2 - 1000 


490 


RETURN 


500 


PRINT 


510 


PRINT "DISTANCE TO ENEMY ";D;"KM" 


520 


PRINT "BEARING IS ";B;" DEGREES" 


530 


IF L = 1 THEN 560 


540 


PRINT "THE SKY FIGHTER HAS FIRED THE LASER 




CANNON" 


550 


GOTO 570 


560 


PRINT "THE SKY FIGHTER HAS FIRED HIS LASER" 


570 


PRINT "YOUR TOTAL ENERGY IS NOW"; El;" 




UNITS" 


580 


PRINT "THE ENEMY HAS ";E2;" UNITS OF ENERGY 




LEFT" 


590 


IF El< = THEN 620 


600 


IF E2 < = THEN 650 


610 


GOTO 680 


620 


PRINT "YOUR ENERGY LEVEL IS ZERO, THE 




ENEMY" 


630 


PRINT "HAS WON, YOU HAVE BECOME ONE WITH 




THE FORCE!" 


640 


GOTO 1180 


650 


PRINT "THE ENEMY HAS RUN OUT OF ENERGY, 




YOU" 


660 


PRINT "HAVE WON" 


670 


GOTO 1180 


680 


RETURN 
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690 PRINT 

700 PRINT "WHICH COMMAND DO YOU WISH TO EXE- 
CUTE" 

710 INPUT C 

720 ON C GOTO 730, 840, 1010, 1100, 1140 

730 PRINT "HOW MANY DEGREES OF ROTATION" 

740 INPUT Bl 

750 IF B + Bl = THEN 800 

760 IF B + Bl > 180 THEN 820 

770 LET B = B + Bl 

780 LET El = El - (10*ABS(B1)) 

790 GOTO 290 

800 PRINT "YOUR ANGLE MUST BE GREATER THAN 
DEGREES" 

810 GOTO 730 

820 PRINT "YOUR ANGLE MUST BE LESS THAN 181 DE- 
GREES" 

830 GOTO 730 

840 PRINT "HOW MANY KM TO TRANSVERSE" 

850 INPUT K 

860 IF D + K = THEN 910 

870 IF D + K > 1E06 THEN 960 

880 LET D = D + K K/1000)) 

890 LET El = El - (ABS( 

900 GOTO 290' 

910 PRINT "YOU HAVE TRIED TO CLOSE THE DIS- 
TANCE TO ZERO" 

920 PRINT "BETWEEN YOU AND THE ENEMY, THE 
ON-BOARD" 

930 PRINT "C:OMMAND COMPUTER WILL NOT EXE- 
CUTE THIS MANEUVER" 

940 PRINT 

950 GOTO 840 

960 PRINT "YOU HAVE TRIED TO EXCEED THE DIS- 
TANCE WHERE" 

970 PRINT "AJSfY OF YOUR WEAPONS ARE EFFECTIVE" 

980 PRINT "THE ON-BOARD COMPUTER WILL NOT' 

990 PRINT "EXECUTE THIS MANEUVER" 

1000 GOTO 840 

1010 LET El = El - 1000 

1020 IF B > = 80 THEN 1050 

1030 PRINT "YOUR ANGLE IS TOO SMALL, YOU HAVE 
MISSED" 
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1040 GOTO 290 

1050 IF B < = 100 THEN 1080 

1060 PRINT "YOUR ANGLE IS TOO GREAT, YOU HAVE 
MISSED" 

1070 GOTO 290 

1080 LET E2 = E2 - 1000 

1090 GOTO 290 

1100 LET El = El - 500 

1110 LET D2 = (1 + INT(100*RND))/100 

1120 LET E2 = E2 - (D2*500) 

1130 GOTO 290 

1140 PRINT "YOU HAVE INSTRUCTED THE ON-BOARD 
COMPUTER" 

1150 PRINT "TO SELF-DESTRUCT, THE REACTOR HAS 
GONE" 

1160 PRINT "CRITICAL, YOU HAVE GONE TO MEET THE 
FORCE" 

1170 IF D < = 500 THEN 1200 

1180 PRINT "SPACE WARS IS OVER" 

1190 GOTO 1240 

1200 PRINT "YOUR DESTRUCTION HAS ALSO DE- 
STROYED" 

1210 PRINT "THE SKY FIGHTER, YOU WILL BE REMEM- 
BERED" 

1220 PRINT "AS A HERO" 

1230 GOTO 1180 

1240 PRINT 

1250 PRINT "TO PLAY SPACE WARS AGAIN TYPE GO," 

1260 PRINT "OTHERWISE TYPE NO" 

1270 INPUT Z$ 

1280 IF Z$ = "GO" THEN 1310 

1290 PRINT "SPACE WARS SAYS GOOD-BYE" 

1300 STOP 

1310 PRINT 

1320 GOTO 50 

1330 END 
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SPACE WARS (2) 

This computer simulation requires considerably more memory than 
any other program iii the book. For the user who is memory limited, 
the following may be: done. Deleting the REM statements, removing 
the instructions, and reducing the string lengths in the messages will 
reduce the memorj' requirement by about 50 percent. 

EXAMPLE 

RUN 

ARE INSTRUCTIONS FOR SPACE WARS REQUIRED? TYPE 

EITHER YES OR NO 

YES 

********************spACE ^Ajjs****************** 
THE DEATH STAR SPACE STATION, YOUR GOAL, IS HEAV- 
ILY 
SHIELDED AND MOUNTS MORE FIREPOWER THAN HALF 
THE IMPERIAL FLEET. BUT. ITS DEFENSES WERE 
PRIMARILY DESIGNED TO FEND OFF LARGE-SCALE CAPI- 
TAL 
SPACE-SHIP ASSAULTS. A SMALL, ONE- OR TWO-MAN 
X-WING FIGHTER SHOULD BE ABLE TO SLIP THROUGH 
ITS DEFENSIVE SCREENS. YOUR MISSION IS TO DESTROY 
THE DEATH ST^.R!!! ON ITS SURFACE THERE IS A SMALL 
THERMAL EXH/^UST PORT. ITS SIZE BELIES ITS IMPOR- 
TANCE 
AS IT APPEARS TO BE AN UNSHIELDED SHAFT THAT RUNS 
DIRECTLY INTO THE MAIN REACTOR SYSTEM POWERING 
THE DEATH STAR SPACE STATION. SINCE THIS SERVES 
AS AN EMERGENCY OUTLET FOR WASTE HEAT IN THE 
EVENT OF REACTOR OVERPRODUCTION, ITS USEFUL- 
NESS 
WOULD BE ELIMNATED BY ENERGY-PARTICLE SHIELD- 
ING. 
A DIRECT HIT WOULD INITIATE A CHAIN REACTION THAT 
WOULD DESTROY THE STATION, THUS PROTECTING THE 
REPUBLIC 
*********EXECUTIVE COMMANDS ARE********* 

(1) FIRE HIGH-ENERGY TORPEDO 

(2) FIRE LASER CANNON 

(3) FIRE LASER 

(4) PROPULSION OF X-W^G 
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THE BATTLE COMPUTER OPTION MAY BE USED WITH 

COMMANDS 
2 AND 3. THE ENERGY TORPEDO IS USED TO DESTROY 
THE DEATH STAR WITH, EACH TORPEDO EXPENDS 20,000 
UNITS OF ENERGY. THE LASER CANNON MAY BE USED 
AGAINST THE SKY FIGHTERS, IT REQUIRES 5,000 UNITS 
THE LASER USES 1,000 ENERGY UNITS PER SHOT AND IT 
IS ALSO USED AGAINST THE SKY FIGHTERS. 
THE BATTLE COMPUTER REQUIRES 500 ENERGY UNITS, 

BUT, 
GUARANTEES A DIRECT HIT ON A SKY FIGHTER. TO DE- 
STROY A SKY FIGHTER YOU MUST DEPLETE IT OF EN- 
ERGY. 
MOVING THE X-WING SPACE CRAFT IS IMPERATIVE AS 
THE ENERGY TORPEDO MUST BE FIRED WITHIN lOOOKM 
OF THE DEATH STAR. X-WING PROPULSION REQUIRES 
1 ENERGY UNIT PER KM 

GOOD-LUCK 
MAY THE FORCE BE WITH YOU 

DISTANCE TO DEATH STAR IS NOW 1E05KM 

THE SKY FIGHTER HAS FIRED HIS LASER CANNON 

THE DARK LORD IS EXTREMELY DANGEROUS!!! 

THE SMITH LORD HAS USED A LASER CANNON ENERGY 

BEAM 
YOUR TOTAL ENERGY IS NOW 4.98E05 
WHICH COMMAND DO YOU WISH TO EXECUTE 

4 

HOW MANY UNITS OF ENERGY DO YOU WISH TO FEED TO 

THE HYPER-ATOMIC DRIVE UNIT, (1 UNIT/IKM) 

**CAUTION** TOO MUCH ENERGY WILL OVER-HEAT 

THE REACTOR, INPUT NO MORE THAN 22,500 UNITS 

AT ANY ONE TIME 

? 

30,000 

IN WHICH DIRECTION, AWAY (A) OR TOWARDS (T) 

THE DEATH STAR 

T 

YOU HAVE WASTED 3.0E04 UNITS OF ENERGY 

THE REACTOR IS CRITICALLY OVERHEATED 
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DISTANCE TO DEATH STAR IS NOW 1E05KM 

THE SKY FIGHTER HAS FIRED HIS LASER CANNON 

RADER'S ON-BOAIXD ATTACK COMPUTER HAS MATCHED 

YOUR COURSE, HIS WEAPONS ARE READY 

THE SMITH LORD HAS USED A LASER CANNON ENERGY 

BEAM 
YOUR TOTAL ENERGY IS NOW 4.39E05 UNITS 
WHICH COMMANID DO YOU WISH TO EXECUTE 
P 

4 

HOW MANY UNITS OF ENERGY DO YOU WISH TO FEED TO 
THE HYPER-ATOMIC DRIVE UNIT, (1 UNIT/IKM) 
**CAUTION** TOO MUCH ENERGY WILL OVER-HEAT 
THE REACTOR, E^UT NO MORE THAN 22,500 UNITS 

AT ANY ONE TIME 
? 

20,000 

IN WHICH DIRECTION, AWAY (A) OR TOWARDS (T) 

THE DEATH STAR. 

? 

T 

DISTANCE TO DEATH STAR IS NOW 8.0E04KM 

THE SKY FIGHTER HAS FIRED HIS LASER CANNON 

*CAUTION* GARTH RADER IS THE BEST SHOT IN THE 

IMPERIAL FLEET, PLUS HE USES THE BAD SIDE OF THE 

FORCE 
THE SMITH LORD HAS USED A LASER CANNON ENERGY 

BEAM 
YOUR TOTAL ENERGY IS NOW 4.1E05 UNITS 
WHICH COMMAND DO YOU WISH TO EXECUTE 
? 

/////////////////////////////////////////////////////////// 
TO PLAY SPACE WARS AGAIN TYPE GO, IF 
NOT TYPE NO 

NO 

SPACE WARS SAY GOOD-BYE AND MAY THE FORCE 

BE WITH YOU 
*END 

The ////// indicate where the program was terminated, this simula- 
tion may be played for a considerable length of time. In the iaterest of 
saving space and leaving the unexpected to the user only a portion of 
a typical run has been shown. 
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SPACE WARS (2) 

10 REM THIS COMPUTER SIMULATION IS AN AD- 
VANCED VERSION OF 
20 REM THE SPACE WARS GAME. YOUR MISSION IS 

TO DESTROY THE 
30 REM DEATH STAR. YOU MAY BE ATTACKED BY 

THE DEATH STAR'S 
40 REM DEFENSES AND BY THE SKY FIGHTERS 
50 RANDOMIZE 
60 PRINT "ARE INSTRUCTIONS FOR SPACE WARS 

REQUIRED? TYPE" 
70 PRINT "EITHER YES OR NO" 
80 INPUT A$ 
90 IF A$ = "YES" THEN 130 
100 IF A$ = "NO" THEN 540 

110 PRINT "YOU HAVE ISSUED AN INVALID RE- 
SPONSE" 
120 GOTO 60 
130 PRINT 
140 PRINT "*****************spACE 

WARS***************" 
150 PRINT "THE DEATH STAR SPACE STATION, YOUR 

GOAL, IS HEAVILY" 
160 PRINT "SHIELDED AND MOUNTS MORE 

FIREPOWER THAN HALF" 
170 PRINT "THE IMPERIAL FLEET. BUT, ITS DE- 
FENSES WERE" 
180 PRINT "PRIMARILY DESIGNED TO FEND OFF 

LARGE-SCALE CAPITAL" 
190 PRINT "SPACE-SHIP ASSAULTS. ASMALL, ONE-OR 

TWO-MAN" 
200 PRINT "X-WING FIGHTER SHOULD BE ABLE TO 

SLIP THROUGH" 
210 PRINT "ITS DEFENSIVE SCREENS. YOUR MISSION, 

IS TO DESTROY" 
220 PRINT "THE DEATH STAR! ! ! ON ITS SURFACE 

THERE IS A SMALL" 
230 PRINT "THERMAL EXHAUST PORT. ITS SIZE BE- 
LIES ITS IMPORTANCE" 
240 PRINT "AS IT APPEARS TO BE AN UNSHIELDED 

SHAFT THAT RUNS" 
250 PRINT "DIRECTLY INTO THE MAIN REACTOR 
SYSTEM, POWERING" 



187 



260 PRINT "THE DEATH STAR SPACE STATION. SINCE 

THIS SERVES" 
270 PRINT "AS AN EMERGENCY OUTLET FOR WASTE 

HEAT IN THE" 
280 PRINT "E^^NT OF REACTOR OVERPRODUCTION, 

ITS use;fulness' 

290 PRINT "WOULD BE ELIMINATED BY ENERGY- 
PARTICLE SHIELDING" 
300 PRINT "A DIRECT HIT WOULD INITIATE A CHAIN 

REACTION THAT" 
310 PRINT "WOULD DESTROY THE STATION. THUS 

PROTECTING THE" 
320 PRINT "R]5PUBLIC" 
330 PRINT "*******EXECUTIVE COMMANDS 

ARE***^'***" 
340 PRINT "(1) FIRE HIGH-ENERGY TORPEDO" 
350 PRINT "(2) FIRE LASER CANNON" 
360 PRINT "(3) FIRE LASER" 
370 PRINT "(4) PROPULSION OF X-WING" 
380 PRINT "THE BATTLE COMPUTER OPTION MAY BE 

USED MTH COMMANDS" 
390 PRINT "2 AND 3. THE ENERGY TORPEDO IS USED 

TO DESTROY" 
400 PRINT "THE DEATH STAR WITH, EACH TORPEDO 

EXPENDS 20,000" 
410 PRINT "Ul^ITS OF ENERGY. THE LASER CANNON 

MAY BE USED" 
420 PRINT "AGAINST THE SKY FIGHTERS, IT RE- 
QUIRES 5,000 UNITS" 
430 PRINT "THE LASER USES 1,000 ENERGY UNITS 

PER SHOT AND IT" 
440 PRINT "IS ALSO USED AGAINST THE SKY FIGHT- 
ERS." 
450 PRINT "THE BATTLE COMPUTER REQUIRES 500 

ENERGY UNITS, BUT," 
460 PRINT "GUARANTEES A DIRECT HIT ON A SKY 

FIGHTER. TO DESTROY' 
465 PRINT "A SKY FIGHTER YOU MUST DEPLETE IT OF 

ENERGY." 

470 PRINT"MOVING THE X-WING SPACE CRAFTISIM- 

PERATI^/EAS" 
480 PRINT "THE ENERGY TORPEDO MUST BE FIRED 



WITHIN lOOOKM" 
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490 PRINT "OF THE DEATH STAR. X-WING PROPUL- 
SION REQUIRES" 

500 PRINT "1 ENERGY UNIT PER KM" 

510 pgn^-jx"***********************************************" 

520 PRINT' GOOD-LUCK " 

530 PRINT "MAY THE FORCE BE WITH YOU" 

536 REM X-WING ENERGY AND SKY ENERGY 

540 LET XI = 5E05 

550 LET Tl = 1E04 

560 LET T2 = 5E04 

570 LET D = 1E05 

580 GOSUB 630 

590 GOSUB 730 

600 GOSUB 830 

610 GOSUB 1040 

620 GOSUB 1500 

625 GOTO 580 

630 IF D > 1E04 THEN 660 

640 LET L = 1 

650 GOTO 700 

660 LET L = 

670 LET H = (1 + INT(100*RND))/100 

680 LET El = 5000*H 

690 GOTO 720 

700 LET H = (H- INT(100*RND))/100 

710 LET El = 1000*H 

720 RETURN 

730 IF D > 5E03 THEN 760 

740 LET K = 1 

750 GOTO 800 

760 LET K = 

770 LET H = (H- INT(100*RND))/100 

780 LET E2 = 8000*H 

790 GOTO 820 

800 LET H = (1 -I- INT(100*RND))/100 

810 LET E2 = 3000*H 

820 RETURN 

830 IF D < 3E03 THEN 860 

840 LET E3 = 

850 GOTO 880 

860 LET H = (1 = INT(100*RND))/100 

870 LET E3 = 2E04*H 
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880 LET Tl = Tl - El 
890 LET T2 = T2 - E2 
900 IF Tl< = THEN 920 
910 GOTO 950 
920 LET El = 
930 LET Y = 1 
940 GOTO 960 
950 LET Y = 
960 IF T2 < = THEN 980 
970 GOTO 1010 
980 LET E2 = 
990 LET Z = 1 
1000 GOTO 1020 
1010 LET Z = 

1020 LET XI = XI - El - E2 - E3 
1030 RETURN 
1040 PRINT "DISTANCE TO DEATH STAR IS NOW"; 

D;"KM" 
1045 IF Y = 1 THEN 1100 
1050 IF L = THEN 1080 

1060 PRINT "T13E SKY FIGHTER HAS FIRED HIS LASER" 
1070 GOTO 1110 
1080 PRINT "THE SKY FIGHTER HAS FIRED HIS LASER 

CANNON" 
1090 GOTO 1110 

1100 PRINT "THE SKY FIGHTER IS OUT OF ACTION!!!" 
1110 IF Z = 1 THEN 1180 
1120 GOTO 1220 
1130 IF K = THEN 1160 
1140 PRINT'THE DARK LORD HAS FIRED HIS HIGH 

ENERGY LASER" 
1150 GOTO 1360 

1160 PRINT "THE SMITH LORD HAS USED A LASER CAN- 
NON EISIERGY BEAM" 
1170 GOTO 13(50 
1180 PRINT "GARTH RADER HAS EXPENDED ALL HIS 

WEAPON'S ENERGY" 
1190 PRINT "SUPPLY. HE IS CURRENTLY ESCAPING TO 

THE EInTDS OF" 
1200 PRINT "THE GALAXY. ***THE FORCE IS WITH 

YOU***" 
1210 GOTO 1360 
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1220 LET C = 1 + (5*RND) 

1230 ON C GOTO 1240, 1270, 1290, 1310, 1330 

1240 PRINT "*CAUTION*GARTH RADER IS THE BEST 
SHOT IN THE" 

1250 PRINT "IMPERIAL FLEET, PLUS HE USES THE BAD 
SIDE OF THE FORCE" 

1260 GOTO 1130 

1270 PRINT "THE DARK LORD IS EXTREMELY 
DANGEROUS!!!" 

1280 GOTO 1130 

1290 PRINT "**CAUTION RADER IS INHUMANLY ACCU- 
RATE CAUTION**" 

1300 GOTO 1130 

1310 PRINT "THE SMITH LORD'S PRECISION IS AWE- 
SOME" 

1320 GOTO 1130 

1330 PRINT "RADER'S ON-BOARD ATTACK COMPUTER 
HAS MATCHED" 

1340 PRINT "YOUR COURSE, HIS WEAPONS ARE 
READY" 

1350 GOTO 1130 

1360 IF D < = 3E03 THEN 1380 

1370 GOTO 1410 

1380 PRINT "***YOU ARE CLOSER THAN 3000KM TO 
THE SPACE STATION" 

1390 PRINT "THE DEATH STAR'S AUTOMATIC DE- 
FENSE NETWORK HAS BEEN" 

1400 PRINT "ACTIVATED. ***USE EXTREME CAU- 
TION***" 

1410 PRINT 

1415 PRINT "YOUR TOTAL ENERGY IS NOW ";X1; " 
UNITS" 

1420 IF XI < 2E04 THEN 1140 

1430 GOTO 1490 

1440 PRINT "YOU HAVE DEPLETED YOUR ENERGY 
SUPPLY, THE DEATH" 

1450 PRINT "STAR WILL NOW DESTROY YOUR HOME 
PLANET" 

1460 PRINT "YOU WILL BE A HERO NOWHERE AND RE- 
MEMBERED BY NONE" 

1470 PRINT «*****YOU HAVE MISUSED THE 
FORCE*****" 

1480 GOTO 2690 
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1490 RETURN 
1500 PRINT 

1510 PRINT "WHICH COMMAND DO YOU WISH TO EXE- 
CUTE" 
1520 INPUT B 

1530 ON B GOTO 1540, 1690, 2030, 2320 
1540 IF D < = 1000 THEN 1590 
1550 PRINT "YOU HAVE WASTED ATORPEDO, YOU ARE 

FARTHER" 
1560 PRINT "AWAY THAN lOOOKM" 
1570 LET XI = XI - 2E04 
1580 GOTO 2680 
1590 LET H = 1 + aNT(100*RND)) 
1600 IF H > = 50 THEN 1640 
1610 PRINT "YOU SHOULD HAVE USED THE FORCE, 

YOU HAVE MISSED" 
1620 LET XI = XI - 2E04 
1630 GOTO 2680 
1640 PRINT "THE FORCE WAS WITH YOU, YOU HAVE 

SINGLE-HANDED" 
1650 PRINT "DESTROYED THE DEATH STAR. YOU 

HAVE SAVED THE" 
1660 PRINT "RliPUBLIC AND PRINCESS LEAH ARGONA 

WILL LOVE" 
1670 PRINT "YOU FOREVER." 
1680 GOTO 2740 
1690 PRINT "THE CANNON IS READY, DO YOU WISH 

COMPUTER ASSISTANCE" 
1700 PRINT "ENTER EITHER YES OR NO" 
1710 INPUT C$ 
1720 IF C$ = "irES" THEN 1820 
1730 IF C$ = "NO" THEN 1880 
1740 PRINT "DvfVALID RESPONSE" 
1750 GOTO 1700 
1760 PRINT "WHICH FIGHTER THE SKY "S" OR RADER 

"R" 
1770 INPUT C$ 
1780 IF C$ = "T" THEN 1840 
1790 IF C$ = "V THEN 1860 
1800 PRINT "WHICH????" 
1810 GOTO 1760 
1820 LET Q = 5000 
1830 GOTO 1760 
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1840 LET Tl = Tl - Q 

1850 GOTO 1960 

1860 LET T2 = T2 - Q 

1870 GOTO 1960 

1880 PRINT "DO YOU WISH TO FIRE ON GARTH RADER 
(R) OR" 

1890 PRINT "ON THE SKY FIGHTER (S)" 

1900 INPUT C$ 

1910 LET Q = 5000*((1 + mT(100*RND))/100) 

1920 IF C$ = "S" THEN 1980 

1930 IF C$ = "R" THEN 2000 

1940 PRINT "WHICH ENEMY????" 

1950 GOTO 1880 

1960 LET XI = XI -5500 

1970 GOTO 2660 

1980 LET Tl = Tl - Q 

1990 GOTO 2010 

2000 LET T2 = T2 - Q 

2010 LET XI = XI -5000 

2020 GOTO 2660 

2030 PRINT "YOU HAVE DECIDED ON USING THE 

LASER" 

2040 PRINT "DO YOU WISH COMPUTER ASSISTANCE, 

YES OR NO" 

2050 INPUT C$ 

2060 IF C$ = "YES" THEN 2100 

2070 IF C$ = "NO" THEN 2120 

2080 PRINT "THE COMPUTER RESPONSES ONLY TO A 

YES OR A NO" 

2090 GOTO 2040 

2100 LETJ = 1 

2110 GOTO 2130 

2120 LETJ = 

2130 PRINT "WHICH FIGHTER THE SKY (S) OR RADER 

(R)" 

2140 PRINT "DO YOU WISH TO FIRE ON" 

2150 INPUT C$ 

2160 IFJ = 1 THEN 2190 

2170 LET Q = 1000*((1 + INT(100*RND))/100) 

2180 GOTO 2200 

2190 LET Q = 1000 

2200 IF C$ = "S" THEN 2240 

2210 IF C$ = "R" THEN 2260 
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2220 PRINT "WiHICH TARGET?????" 

2230 GOTO 2130 

2240 LET Tl = Tl - Q 

2250 GOTO 2270 

2260 LET T2 = T2 - Q 

2270 IFJ = 1 THEN 2300 

2280 LET XI = XI - 1000 

22W GOTO 2660 

2300 LET XI = XI - 1500 

2310 GOTO 2660 

2320 PRINT "HOW MANY UNITS OF ENERGY DO YOL 

WISH TO FEED TO" 
2330 PRINT "THE HYPER-ATOMIC DRIVE UNIT, (1 

UNIT/IKM)" 
2340 PRINT "**CAUTION** TOO MUCH ENERGY WILL 

OVER-HEAT' 
2350 PRINT "THE REACTOR, INPUT NO MORE THAN 

22,500 UNITS" 
2360 PRINT "AT ANY ONE TIME" 
2370 INPUT F 

2380 PRINT "m WHICH DIRECTION, AWAY (A) OR TO- 
WARDS (T)" 
2390 PRINT "THE DEATH STAR" 
2400 INPUT C$ 
2410 IF F > 2.25E04 THEN 2470 
2420 IF C$ = "^" THEN 2500 
2430 IF C$ = "T" THEN 2620 
2440 PRINT "DON'T YOU KNOW WHICH DIRECTION YOU 

WANT TO GO TO" 
2450 GOTO 2380 

2460 REM OVERHEATING THE REACTOR 
2470 PRINT "YOU HAVE WASTED ";F;" UNITS OF 

ENERGrY" 
2480 PRINT "THE REACTOR IS CRITICALLY OVER- 
HEATED" 
2490 GOTO 2640 
2500 LET D = D -I- F 
2510 IF D > = 1.5E05 THEN 2540 
2520 GOTO 2640 
2530 REM WENT TOO FAR 
2540 PRINT "VraERE ARE YOU GOING?? THE BATTLE IS 

IN THE" 
2550 PRINT "OPPOSITE DIRECTION" 
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2560 GOTO 2640 

2570 PRINT "YOU HAVE SMASHED INTO THE DARK 

STAR*******" 
2580 PRINT "WHERE DID YOU LEARN TO FLY, GARTH 

RADER" 
2590 PRINT "IS LAUGHING AT YOU;; OH!! BY THE 

WAY--" 
2600 PRINT «•♦♦•♦• YOU HAVE LOST ♦***••" 
2610 GOTO 2690 
2620 LET D = D - F 
2630 IF D < = THEN 2570 
2640 LET XI = XI - F 
2650 GOTO 2680 
2660 PRINT "THE SKY FIGHTER'S ENERGY IS NOW 

";T1;"UNITS" 

2670 PRINT "THE DARK LORD'S ENERGY IS" ;T2;" 

UNITS" 
2680 RETURN 
2690 PRINT "YOU ARE AN INCOMPETENT GOOD 

KNIGHT" 
2700 PRINT "YOU HAVE DISGRACED THE MEMORY OF" 
2710 PRINT "OBI- SAN COYOTE ! WHOSE SIDE ARE YOU 

ON??" 
2720 PRINT "WHY DON'T YOU PROVE YOUR WORTH 

AND TRY AGAIN" 
2730 GOTO 2760 
2740 PRINT "OBI- SAN COYOTE WOULD BE PROUD OF 

YOU" 
2750 PRINT "YOU ARE INDEED A ♦*GOOD KNIGHT**" 
2760 PRINT 

2770 PRINT "TO PLAY SPACE WARS AGAIN TYPE GO, IF" 
2780 PRINT "NOT TYPE NO" 
2790 INPUT L$ 
2800 IF L$ = "GO" THEN 2840 
2810 IF L$ = "NO" THEN 2860 
2820 PRINT "DO YOU WANT TO STOP OR PLAY 

AGAIN?????" 
2830 GOTO 2770 
2840 PRINT 
2850 GOTO 50 
2860 PRINT "SPACE WARS SAY GOOD-BYE AND MAY 

THE FORCE BE WITH YOU" 
2870 END 
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STRftlGHT LINE DEPRECIATION 

This program computes the value depredatJon of an item by the 
straight line method 

FORMULA 

Xc = last current value, D = depreciation per year, 

Xi = new current value 

Xc-D=Xi 



EXAMPLE 




ORIGINAL VALUE 


= 


10000 




LIFETIME IN YEARS = 


12 




YEARLY DEPRECATION = 833.333 


YEAR 


VALUE 


1 


9166.66 


2 


8333.33 


3 


7500. 


4 


6666.66 


5 


5833.33 


6 


5000. 


7 


4166.66 


8 


3333.33 


9 


2500. 


10 


1666.66 


11 


333.333 


12 





**♦*********♦**♦******♦♦♦*********• 


TYPE 1 TO CONTINUE, TO STOP 
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STRAIGHT LINE DEPRECIATION 




CALCULATE 

YEARLY 

DEPRECIATION 



/' OUTPUT \ 

( YEAR ) 

V DEPRECIATION J 



CALCULATE 

VALUE AT END 

OF YEAR X 




/tlUTPUT CONTINUe\ 
( MESSAGE + ) 
V INPUT J 




-R A + O 
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STRAIGHT LINE DEPRECIATION 

10 REM THIS PROGRAM COMPUTES VALUE DEPRE- 
CIATION 

20 REM BY THE STRAIGHT LINE METHOD 

30 PRINT "OMGINAL VALUE = ": 

40 INPUT A 

50 PRINT "LIFETIME IN YEARS = "; 

60 INPUT B 

70 LET C = iVB 

80 PRINT "YEARLY DEPRECIATION = "; C 

90 PRINT 

100 PRINT "YEAR", "VALUE" 

110 LET X = 

120 LET X = X + 1 

130 LET A = A - C 

140 IF A < THEN 160 

150 GOTO 170 

160 LET A = 

170 PRINT X,A 

180 IF X < B THEN 120 

190 PRINT "**********************" 

200 PRINT "TiTE 1 TO CONTINUE, TO STOP" 

210 INPUT L 

220 IF L = 1 THEN 240 

230 STOP 

240 PRINT 

250 GOTO 30 

260 END 
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VECTOR CROSS PRODUCT 

If A(Ai,A2,A3) and B(Bi,B2,B3) are two three-dimensional vectors 
then the cross product of A and B is denoted by AxB. The program 
re^onds with a solution represented by X,Y and Z. 

FORMULAE 





A2AZ 




AA3 




AA2 


XB = 




— 










B2B3 


> 


BtBs 


t 


BtB2 



= (42B3 - A3B2, ASi - A1B3, ASz - A2B1) 

EXAMPLES 

ENTER 1ST VECTOR (A1,A2,A3) 

10,11,10 

ENTER 2ND VECTOR (B1,B2,B3) 

? 

4,3,4 

VECTOR CROSS PRODUCT 

X=14 Y = Z = -14 

TYPE 1 TO CONTINUE, TO STOP 

? 

1 

ENTER 1ST VECTOR (A1,A2,A3) 

? 

12 23 34 

ENTER 2ND VECTOR (B1,B2,B3) 

? 

23,41,67 

VECTOR CROSS PRODUCT 

X = 147 Y = - 22 Z = - 37 

TYPE 1 TO CONTINUE, TO STOP 


*END 



A£i 
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VECTOR CROSS PRODUCT 







/^PROMPT + INPUT ^ 
V VECTORS J 



CALCULATE 

VECTOR CROSS 

PRODUCT 



/^ 



OUTPUT 



CROSS PRODUCT 



) 



i \ 
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VECTOR CROSS PRODUCT 

10 REM THIS PRODUCT COMPUTES THE CROSS PRO- 
DUCT 

20 REM OF TWO VECTORS 

30 PRINT "ENTER 1ST VECTOR (A1,A2,A3)" 

40 INPUT A1,A2,A3 

50 PRINT "ENTER 2ND VECTOR (B1,B2,B3) 

60 INPUT B1,B2,B3 

70 LET X = (A2*B3) - (A3*B2) 

80 LET Y = (A3*B1) - (A1*B3) 

90 LET Z = (A1*B2) - (A2*B1) 

100 PRINT "VECTOR CROSS PRODUCT" 

110 PRINT "X = ";X,"Y = ";Y,"Z = ";Z 

120 PRINT "++++++++++++-I-++++++ " 

130 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

140 INPUT L 

150 IF L = 1 THEN 170 

160 STOP 

170 PRINT 

180 GOTO 30 

190 END 
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VECTOR DOT PRODUCT AND NORM 

This program computes the vector dot product, also known as the 
scalar product and the norms of two vectors. 

FORMULAE _^ 

T= (414243) and'B'{jBi,B2,Bz) are two vectors 

NORM ofTis denoted pL| aMdB"?s denoted p5| 



\^=/Af+AF=A3' 



A'-B'=AiBi +A2B2 +AS3 



EXAMPLE 

ENTER FIRST VECTOR (A1,A2,A3) 

2 3,4 

ENTER SECOND VECTOR (B1,B2,B3) 

5,6,7 

DOT PRODUCT = 56 

NORM OF 1ST VECTOR = 5.38516 

NORM OF 2ND ^^ECTOR = 10.4880 

TYPE 1 TO CONTINUE, TO STOP 


*END 
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DOT PRODUCT AND NORM 



[ START j 



C 



PROMPT + INPUT 
VECTORS 







CALCULATE 
NORM OF 
VECTORS 



CALCULATE 

DOT 
PRODUCT 



OUTPUT 
RESULTANTS 



3 



^ OUTPUT 
CONTINUE 
spOMMAND + INPUT 



^ 
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VECTOR DOT PRODUCIT AND NORM 

10 REM THIS PROGRAM COMPUTES DOT PRODUCT 

AND 

20 REM THE NORMS OF TWO VECTORS 

30 PRINT "ENTER 1ST VECTOR (A1,A2,A3)" 

40 INPUT Al.M.AS 

50 PRINT "ENTER 2ND VECTOR (B1.B2,B3)" 

60 INPUT B1,B2,B3 

70 REM CALCULATE NORM OF A VECTOR 

80 LET X = SQR((A1^2) + (A2f2) + (A3t2)) 

90 REM CALCULATE NORM OF B VECTOR 

100 LET Y = SQR((Blt2) + (B2t2) + (B3t2)) 

110 REM CALCULATE DOT PRODUCT 

120 LET Z = (iiLl*Bl) + (A2*B2) + (A3*B3) 

130 PRINT "DOT PRODUCT = ";Z 

140 PRINT "NORM OF 1ST VECTOR = ";X 

150 PRINT "NORM OF 2ND VECTOR = ";Y 

IfiO PRINT "***************♦*****♦***" 

170 PRINT "TYPE 1 TO CONTINUE, TO STOP" 

180 INPUT L 

190 IF L = 1 THEN 210 

200 STOP 

210 PRINT 

220 GOTO 30 

230 END 
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From arithmetic progression to statistical permutations to one- 
arm bandits, here are 57 practical, useful and fun programs designed 
to help you really put your minicomputer to work! 

Game programs include blackjack, one-arm bandit, craps, and 
two space war games. Math and accountir>g programs include com- 
pounding, straight-line depreciation, statistk;al permutations, instant 
derivatives, and solutions for integrals — even a whole section of 
geometric solutions for modem-day Euclids. For history buffs, there is 
a Day-of-the-Week program for any date back through 1753. 

Each program begins with an introductory paragraph describing 
its capabilities, and continues with a typical program sequence and 
flowchart. All programs will run on any floating point BASIC. 

The author is a veteran computer programmer with extensive 
experience in developing software in various languages for a wide 
range of hardware systems. 



g 



RadM/haeK 

A DIVISION OF TANDY CORPORATION, FORT WORTH. TEXAS 76102 



